Changeset ceb7e4d in flexpart.git for src/verttransform.f90


Ignore:
Timestamp:
Nov 23, 2016, 3:01:53 PM (7 years ago)
Author:
Sabine <sabine.eckhardt@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
8ee24a5
Parents:
41c421b
Message:

commented testing vars in verttransf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/verttransform.f90

    r341f4b7 rceb7e4d  
    103103  ! CHARACTER(LEN=3)  :: aspec
    104104  ! integer :: virr=0
    105   real :: tot_cloud_h
    106   real :: dbg_height(nzmax)
     105  !real :: tot_cloud_h
     106  !real :: dbg_height(nzmax)
    107107!ZHG
    108108
     
    178178    init=.false.
    179179
    180     dbg_height = height
     180!    dbg_height = height
    181181
    182182  endif
     
    598598        convp=convprec(ix,jy,1,n)
    599599        prec=lsp+convp
    600         tot_cloud_h=0
     600!        tot_cloud_h=0
    601601! Find clouds in the vertical
    602602        do kz=1, nz-1 !go from top to bottom
     
    604604! assuming rho is in kg/m3 and hz in m gives: kg/kg * kg/m3 *m3/kg /m = m2/m3
    605605            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))
    607607           
    608608!            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.
hosted by ZAMG