Commit 8ee24a57 by Sabine

### force releaseheights for bkwd depo runs

parent ceb7e4d5
 ... @@ -20,7 +20,7 @@ ... @@ -20,7 +20,7 @@ !********************************************************************** !********************************************************************** subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav) subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav) ! i i i i o o ! i i i i i o o o o !***************************************************************************** !***************************************************************************** ! * ! * ! Calculation of wet deposition using the concept of scavenging coefficients.* ! Calculation of wet deposition using the concept of scavenging coefficients.* ... @@ -138,6 +138,8 @@ subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc ... @@ -138,6 +138,8 @@ subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc memtime(1),memtime(2),interp_time,lsp,convp,cc) memtime(1),memtime(2),interp_time,lsp,convp,cc) endif endif ! If total precipitation is less than 0.01 mm/h - no scavenging occurs if ((lsp.lt.0.01).and.(convp.lt.0.01)) goto 20 ! get the level were the actual particle is in ! get the level were the actual particle is in do il=2,nz do il=2,nz ... ...
 ... @@ -329,11 +329,15 @@ subroutine readcommand ... @@ -329,11 +329,15 @@ subroutine readcommand case (3) ! 3 .. wet deposition in outputfield case (3) ! 3 .. wet deposition in outputfield ind_rel = 3 ind_rel = 3 write(*,*) ' #### FLEXPART WET DEPOSITION BACKWARD MODE #### ' write(*,*) ' #### FLEXPART WET DEPOSITION BACKWARD MODE #### ' write(*,*) ' #### Releaseheight is forced to 0 - 20km #### ' write(*,*) ' #### Release is performed above ground lev #### ' WETBKDEP=.true. WETBKDEP=.true. allocate(xscav_frac1(maxpart,maxspec)) allocate(xscav_frac1(maxpart,maxspec)) case (4) ! 4 .. dry deposition in outputfield case (4) ! 4 .. dry deposition in outputfield ind_rel = 4 ind_rel = 4 write(*,*) ' #### FLEXPART DRY DEPOSITION BACKWARD MODE #### ' write(*,*) ' #### FLEXPART DRY DEPOSITION BACKWARD MODE #### ' write(*,*) ' #### Releaseheight is forced to 0 - 2*href #### ' write(*,*) ' #### Release is performed above ground lev #### ' DRYBKDEP=.true. DRYBKDEP=.true. allocate(xscav_frac1(maxpart,maxspec)) allocate(xscav_frac1(maxpart,maxspec)) end select end select ... ...
 ... @@ -515,6 +515,20 @@ subroutine readreleases ... @@ -515,6 +515,20 @@ subroutine readreleases stop stop endif endif ! If FLEXPART is run for backward deposition force zpoint !********************************************************************* if (WETBKDEP) then zpoint1(numpoint)=0. zpoint2(numpoint)=20000. kindz(numpoint)=1 endif if (DRYBKDEP) then zpoint1(numpoint)=0. zpoint2(numpoint)=2.*href kindz(numpoint)=1 endif ! Check whether x coordinates of release point are within model domain ! Check whether x coordinates of release point are within model domain !********************************************************************* !********************************************************************* ... ...
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!