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')