Changeset 8ee24a5 in flexpart.git for src/get_wetscav.f90
- Timestamp:
- Nov 24, 2016, 9:23:13 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:
- 1c0d5e6
- Parents:
- ceb7e4d
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/get_wetscav.f90
r92a74b2 r8ee24a5 21 21 22 22 subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav) 23 ! i i i i oo23 ! i i i i i o o o o 24 24 !***************************************************************************** 25 25 ! * … … 139 139 endif 140 140 141 ! If total precipitation is less than 0.01 mm/h - no scavenging occurs 142 if ((lsp.lt.0.01).and.(convp.lt.0.01)) goto 20 141 143 142 144 ! get the level were the actual particle is in
Note: See TracChangeset
for help on using the changeset viewer.