- Timestamp:
- Dec 6, 2016, 2:22:08 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:
- 6481010
- Parents:
- 1c0d5e6
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager.f90
r41c421b r56a2e54 569 569 call get_wetscav(itime,lsynctime,loutnext,j,ks,grfraction,idummy,idummy,wetscav) 570 570 if (wetscav(ks).gt.0) then 571 xscav_frac1(j,ks)=wetscav(ks)*(zpoint2(npoint(j))-zpoint1(npoint(j))) 571 xscav_frac1(j,ks)=wetscav(ks)* & 572 (zpoint2(npoint(j))-zpoint1(npoint(j)))*grfraction(1) 572 573 else 573 574 xmass1(j,ks)=0. -
src/wetdepo.f90
r92a74b2 r56a2e54 113 113 wetdeposit(ks)=xmass1(jpart,ks)* & 114 114 (1.-exp(-wetscav*abs(ltsample)))*grfraction(1) ! wet deposition 115 ! if (xscav_frac1(jpart,ks).lt.0) then 116 ! xscav_frac1(jpart,ks)=wetscav*grfraction(1)* & 117 ! (zpoint2(npoint(jpart))-zpoint1(npoint(jpart))) 118 ! endif 115 119 else ! if no scavenging 116 120 wetdeposit(ks)=0. 121 ! if (xscav_frac1(jpart,ks).lt.0) then 122 ! xscav_frac1(jpart,ks)=0. 123 ! xmass1(jpart,ks)=0. 124 ! endif 117 125 endif 118 126
Note: See TracChangeset
for help on using the changeset viewer.