Skip to content
Snippets Groups Projects
Commit a17dbbe3 authored by Anne Philipp's avatar Anne Philipp
Browse files

fixed bug

parent f13681ed
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source/fortran/rwGRIB2.f90
+ 3
− 1
View file @ a17dbbe3
......@@ -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')
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment