Changeset ceb7e4d in flexpart.git
- Timestamp:
- Nov 23, 2016, 3:01:53 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 8ee24a5
- Parents:
- 41c421b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/verttransform.f90
r341f4b7 rceb7e4d 103 103 ! CHARACTER(LEN=3) :: aspec 104 104 ! integer :: virr=0 105 real :: tot_cloud_h106 real :: dbg_height(nzmax)105 !real :: tot_cloud_h 106 !real :: dbg_height(nzmax) 107 107 !ZHG 108 108 … … 178 178 init=.false. 179 179 180 dbg_height = height180 ! dbg_height = height 181 181 182 182 endif … … 598 598 convp=convprec(ix,jy,1,n) 599 599 prec=lsp+convp 600 tot_cloud_h=0600 ! tot_cloud_h=0 601 601 ! Find clouds in the vertical 602 602 do kz=1, nz-1 !go from top to bottom … … 604 604 ! assuming rho is in kg/m3 and hz in m gives: kg/kg * kg/m3 *m3/kg /m = m2/m3 605 605 clw(ix,jy,kz,n)=(clwc(ix,jy,kz,n)*rho(ix,jy,kz,n))*(height(kz+1)-height(kz)) 606 tot_cloud_h=tot_cloud_h+(height(kz+1)-height(kz))606 ! tot_cloud_h=tot_cloud_h+(height(kz+1)-height(kz)) 607 607 608 608 ! icloud_stats(ix,jy,4,n)= icloud_stats(ix,jy,4,n)+clw(ix,jy,kz,n) ! Column cloud water [m3/m3]
Note: See TracChangeset
for help on using the changeset viewer.