Changes in src/verttransform_ecmwf.f90 [437c545:0a94e13] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/verttransform_ecmwf.f90
r437c545 r0a94e13 73 73 use com_mod 74 74 use cmapf_mod, only: cc2gll 75 ! use mpi_mod76 75 77 76 implicit none … … 654 653 if ((lsp.gt.0.01).or.(convp.gt.0.01)) then ! cloud and precipitation 655 654 656 do kz=nz, 2,-1 !go Bottom up!655 do kz=nz,1,-1 !go Bottom up! 657 656 if (clw(ix,jy,kz,n).gt. 0) then ! is in cloud 658 657 cloudsh(ix,jy,n)=cloudsh(ix,jy,n)+height(kz)-height(kz-1)
Note: See TracChangeset
for help on using the changeset viewer.