Changeset 93a1fa9 in flexpart.git
- Timestamp:
- Feb 1, 2017, 8:57:21 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 0e085a8
- Parents:
- 585a533
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/get_wetscav.f90
r8ee24a5 r93a1fa9 55 55 ! ltsample [s] interval over which mass is deposited * 56 56 ! prec [mm/h] precipitation rate in subgrid, where precipitation occurs* 57 ! wetdeposit mass that is wet deposited *58 57 ! wetgrid accumulated deposited mass on output grid * 59 58 ! wetscav scavenging coefficient * … … 78 77 real :: clouds_h ! cloud height for the specific grid point 79 78 real :: xtn,ytn,lsp,convp,cc,grfraction(3),prec(3),wetscav,totprec 80 real :: wetdeposit(maxspec),restmass79 real :: restmass 81 80 real,parameter :: smallnum = tiny(0.0) ! smallest number that can be handled 82 81 !save lfr,cfr … … 220 219 !********************************************************** 221 220 222 wetdeposit(ks)=0.223 wetscav=0.224 221 225 222 if (ngrid.gt.0) then … … 286 283 if ((ccn_aero(ks).gt.0. .or. in_aero(ks).gt.0.).or.(henry(ks).gt.0.and.dquer(ks).le.0)) then 287 284 inc_count=inc_count+1 285 write(*,*) 'Incloud: ',inc_count 288 286 ! if negative coefficients (turned off) set to zero for use in equation 289 287 if (ccn_aero(ks).lt.0.) ccn_aero(ks)=0. -
src/wetdepo.f90
r585a533 r93a1fa9 64 64 65 65 integer :: jpart,itime,ltsample,loutnext,ldeltat,i,j,ix,jy 66 integer :: itage,nage, hz,il,interp_time, n66 integer :: itage,nage,il,interp_time, n 67 67 integer :: ks, kp 68 68 integer :: blc_count, inc_count
Note: See TracChangeset
for help on using the changeset viewer.