From a17dbbe3e984cf19388aabbe430282fd34bbd6cb Mon Sep 17 00:00:00 2001
From: Anne Philipp <anne.philipp@univie.ac.at>
Date: Sat, 3 Nov 2018 14:09:27 +0100
Subject: [PATCH] fixed bug

---
 source/fortran/rwGRIB2.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/fortran/rwGRIB2.f90 b/source/fortran/rwGRIB2.f90
index 09ec94e..734d06c 100644
--- a/source/fortran/rwGRIB2.f90
+++ b/source/fortran/rwGRIB2.f90
@@ -20,7 +20,9 @@
    real,dimension(maxl,maxb,mlevel)   ::  feld  
    integer:: maxl,maxb,mlevel,mstride,mpar(:),irest,div,level
    integer :: l(size(mpar))
-   character*(*):: filename                             
+   character*(*):: filename   
+   
+   feld=0.                          
 
    call grib_open_file(ifile, TRIM(FILENAME),'r')
  
-- 
GitLab