Changeset 437c545 in flexpart.git for src/verttransform_ecmwf.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/verttransform_ecmwf.f90
r79e0349 r437c545 654 654 if ((lsp.gt.0.01).or.(convp.gt.0.01)) then ! cloud and precipitation 655 655 656 do kz=nz, 1,-1 !go Bottom up!656 do kz=nz,2,-1 !go Bottom up! 657 657 if (clw(ix,jy,kz,n).gt. 0) then ! is in cloud 658 658 cloudsh(ix,jy,n)=cloudsh(ix,jy,n)+height(kz)-height(kz-1)
Note: See TracChangeset
for help on using the changeset viewer.