Changeset 585a533 in flexpart.git
- Timestamp:
- Jan 31, 2017, 1:51:21 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:
- 93a1fa9
- Parents:
- 278f4ed
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/wetdepo.f90
r56a2e54 r585a533 108 108 ! CALCULATE DEPOSITION 109 109 !************************************************** 110 wetscav=0. 111 112 if (((dquer(ks).le.0.).and.(weta_gas(ks).gt.0..or.wetb_gas(ks).gt.0.)) & 113 .or. & 114 ((dquer(ks).gt.0.).and.(crain_aero(ks).gt.0..or.csnow_aero(ks).gt.0.))) then 115 110 116 call get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav) 111 117 … … 113 119 wetdeposit(ks)=xmass1(jpart,ks)* & 114 120 (1.-exp(-wetscav*abs(ltsample)))*grfraction(1) ! wet deposition 115 ! if (xscav_frac1(jpart,ks).lt.0) then116 ! xscav_frac1(jpart,ks)=wetscav*grfraction(1)* &117 ! (zpoint2(npoint(jpart))-zpoint1(npoint(jpart)))118 ! endif119 121 else ! if no scavenging 120 122 wetdeposit(ks)=0. 121 ! if (xscav_frac1(jpart,ks).lt.0) then122 ! xscav_frac1(jpart,ks)=0.123 ! xmass1(jpart,ks)=0.124 ! endif125 123 endif 126 124 … … 145 143 endif 146 144 145 endif ! no deposition 147 146 end do ! loop over species 148 147
Note: See TracChangeset
for help on using the changeset viewer.