Changeset 8ee24a5 in flexpart.git
- 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
- Location:
- src
- Files:
-
- 3 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 -
src/readcommand.f90
r5deb48c r8ee24a5 330 330 ind_rel = 3 331 331 write(*,*) ' #### FLEXPART WET DEPOSITION BACKWARD MODE #### ' 332 write(*,*) ' #### Releaseheight is forced to 0 - 20km #### ' 333 write(*,*) ' #### Release is performed above ground lev #### ' 332 334 WETBKDEP=.true. 333 335 allocate(xscav_frac1(maxpart,maxspec)) … … 335 337 ind_rel = 4 336 338 write(*,*) ' #### FLEXPART DRY DEPOSITION BACKWARD MODE #### ' 339 write(*,*) ' #### Releaseheight is forced to 0 - 2*href #### ' 340 write(*,*) ' #### Release is performed above ground lev #### ' 337 341 DRYBKDEP=.true. 338 342 allocate(xscav_frac1(maxpart,maxspec)) -
src/readreleases.f90
r05cf28d r8ee24a5 516 516 endif 517 517 518 ! If FLEXPART is run for backward deposition force zpoint 519 !********************************************************************* 520 if (WETBKDEP) then 521 zpoint1(numpoint)=0. 522 zpoint2(numpoint)=20000. 523 kindz(numpoint)=1 524 endif 525 if (DRYBKDEP) then 526 zpoint1(numpoint)=0. 527 zpoint2(numpoint)=2.*href 528 kindz(numpoint)=1 529 endif 530 531 518 532 ! Check whether x coordinates of release point are within model domain 519 533 !*********************************************************************
Note: See TracChangeset
for help on using the changeset viewer.