Changeset dba4221 in flexpart.git for src/readwind_ecmwf_mpi.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/readwind_ecmwf_mpi.f90
r92fab65 rdba4221 113 113 ! OPENING OF DATA FILE (GRIB CODE) 114 114 ! 115 write(*,*) 'Reading: '//path(3)(1:length(3)) & 116 //trim(wfname(indj)) 115 117 5 call grib_open_file(ifile,path(3)(1:length(3)) & 116 118 //trim(wfname(indj)),'r',iret) … … 394 396 endif 395 397 396 if(levdiff2.eq.0) then397 iwmax= nlev_ec+1398 ! if(levdiff2.eq.0) then 399 iwmax=iwmax+1 398 400 do i=0,nxmin1 399 401 do j=0,nymin1 400 wwh(i,j, nlev_ec+1)=0.402 wwh(i,j,iwmax)=0. 401 403 end do 402 404 end do 403 endif405 ! endif 404 406 405 407 ! For global fields, assign the leftmost data column also to the rightmost
Note: See TracChangeset
for help on using the changeset viewer.