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