Changeset dba4221 in flexpart.git for src/gridcheck_nests.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_nests.f90
r92fab65 rdba4221 77 77 igrib=0 78 78 iret=0 79 80 write(*,*) 'Reading: '//path(numpath+2*(l-1)+1) & 81 (1:length(numpath+2*(l-1)+1))//trim(wfnamen(l,ifn)) 79 82 80 83 5 call grib_open_file(ifile,path(numpath+2*(l-1)+1) & … … 326 329 327 330 nuvzn=iumax 328 nwzn=iwmax 331 nwzn=iwmax + 1 ! +1 needed if input contains only lower levels 329 332 if(nuvzn.eq.nlev_ec) nwzn=nlev_ecn+1 330 333
Note: See TracChangeset
for help on using the changeset viewer.