Changeset 437c545 in flexpart.git for src/readwind_gfs.f90
- Timestamp:
- Mar 20, 2019, 3:32:30 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 7873bf7
- Parents:
- 77783e3
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readwind_gfs.f90
rdb91eb7 r437c545 558 558 ! SEC & IP 12/2018 read GFS clouds 559 559 if(isec1(6).eq.153) then !! CLWCR Cloud liquid water content [kg/kg] 560 clwch(i,j,nlev_ec-k+2,n)=zsec4(nxfield*(ny-j-1)+i+1) 560 if((i.eq.0).and.(j.eq.0)) then 561 do ii=1,nuvz 562 if ((isec1(8)*100.0).eq.akz(ii)) numpu=ii 563 end do 564 endif 565 help=zsec4(nxfield*(ny-j-1)+i+1) 566 if(i.le.i180) then 567 clwch(i179+i,j,numpu,n)=help 568 else 569 clwch(i-i181,j,numpu,n)=help 570 endif 561 571 readclouds=.true. 562 572 sumclouds=.true. 573 ! readclouds=.false. 574 ! sumclouds=.false. 563 575 endif 564 576
Note: See TracChangeset
for help on using the changeset viewer.