diff --git a/source/fortran/rwGRIB2.f90 b/source/fortran/rwGRIB2.f90
index 09ec94e305507d30e37c43009d306ffd343cbe05..734d06ca185685df6a584d4c91fbe617eddc26b6 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')