Changeset 462f74b in flexpart.git for src/com_mod.f90

Timestamp:

Jul 12, 2016, 11:02:42 AM (8 years ago)

Author:

Sabine Eckhardt <sabine@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

842074e

Parents:

f28aa0a

Message:

first version of the backward scavenging

File:

• src/com_mod.f90 (modified) (4 diffs)

src/com_mod.f90

@@ -576 +576 @@
   real :: dxoutn,dyoutn,outlon0n,outlat0n,xoutshiftn,youtshiftn
   !real outheight(maxzgrid),outheighthalf(maxzgrid)
-  logical :: DEP,DRYDEP,DRYDEPSPEC(maxspec),WETDEP,OHREA,ASSSPEC
+  logical :: DEP,DRYDEP,DRYDEPSPEC(maxspec),WETDEP,OHREA,ASSSPEC,SCAVDEP
 
   ! numxgrid,numygrid       number of grid points in x,y-direction
@@ -595 +595 @@
   ! OHREA                   .true., if OH reaction is switched on
   ! ASSSPEC                 .true., if there are two species asscoiated
+  ! SCAVDEP                 .true., for bkwd runs, where mass deposited and source regions is calculated
   !                    (i.e. transfer of mass between these two occurs
 
@@ -665 +666 @@
   real, allocatable, dimension(:) :: ztra1 
   real, allocatable, dimension(:,:) :: xmass1
+  real, allocatable, dimension(:,:) :: xscav_frac1
 
   ! eso: Moved from timemanager
@@ -685 +687 @@
   ! xtra1,ytra1,ztra1       spatial positions of the particles
   ! xmass1 [kg]             particle masses
-  
+  ! xscav_frac1             fraction of particle masse which has been scavenged at receptor
+