Changeset dba4221 in flexpart.git for src/gridcheck_ecmwf.f90
- Timestamp:
- Nov 9, 2022, 4:50:39 PM (18 months ago)
- Branches:
- bugfixes+enhancements
- Children:
- 8ad70c7
- Parents:
- 49e63b9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/gridcheck_ecmwf.f90
r92fab65 rdba4221 103 103 ! OPENING OF DATA FILE (GRIB CODE) 104 104 ! 105 write(*,*) 'Reading: '//path(3)(1:length(3)) & 106 //trim(wfname(ifn)) 105 107 5 call grib_open_file(ifile,path(3)(1:length(3)) & 106 108 //trim(wfname(ifn)),'r',iret) … … 418 420 419 421 nuvz=iumax 420 nwz =iwmax 422 nwz =iwmax + 1 ! +1 needed if input contains only lower levels 421 423 if(nuvz.eq.nlev_ec) nwz=nlev_ec+1 422 424
Note: See TracChangeset
for help on using the changeset viewer.