Changes in src/com_mod.f90 [c8fc724:5888298] in flexpart.git

File:

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

src/com_mod.f90

@@ -132 +132 @@
 
 !ZHG SEP 2015 wheather or not to read clouds from GRIB
-  logical :: readclouds=.false.
+  logical :: readclouds
 !ESO DEC 2015 whether or not both clwc and ciwc are present (if so they are summed)
-  logical :: sumclouds=.false.
+  logical :: sumclouds
 
   logical,dimension(maxnests) :: readclouds_nest, sumclouds_nest
@@ -140 +140 @@
 
 !NIK 16.02.2015
-  integer(selected_int_kind(16)), dimension(maxspec) :: tot_blc_count=0, &
-       &tot_inc_count=0
+  integer(selected_int_kind(16)) :: tot_blc_count=0, tot_inc_count=0
 
 
@@ -577 +576 @@
   real :: dxoutn,dyoutn,outlon0n,outlat0n,xoutshiftn,youtshiftn
   !real outheight(maxzgrid),outheighthalf(maxzgrid)
-  logical :: DEP,DRYDEP,DRYDEPSPEC(maxspec),WETDEP,WETDEPSPEC(maxspec),&
-       & OHREA,ASSSPEC
+  logical :: DEP,DRYDEP,DRYDEPSPEC(maxspec),WETDEP,OHREA,ASSSPEC
+  logical :: DRYBKDEP,WETBKDEP
 
   ! numxgrid,numygrid       number of grid points in x,y-direction
@@ -595 +594 @@
   ! DRYDEPSPEC              .true., if dry deposition is switched on for that species
   ! WETDEP                  .true., if wet deposition is switched on
-  ! WETDEPSPEC              .true., if wet deposition is switched on for that species
   ! OHREA                   .true., if OH reaction is switched on
   ! ASSSPEC                 .true., if there are two species asscoiated
+  ! DRYBKDEP,WETBKDEP        .true., for bkwd runs, where mass deposited and source regions is calculated - either for dry or for wet deposition
   !                    (i.e. transfer of mass between these two occurs
 
@@ -668 +667 @@
   real, allocatable, dimension(:) :: ztra1 
   real, allocatable, dimension(:,:) :: xmass1
+  real, allocatable, dimension(:,:) :: xscav_frac1
 
   ! eso: Moved from timemanager
@@ -688 +688 @@
   ! xtra1,ytra1,ztra1       spatial positions of the particles
   ! xmass1 [kg]             particle masses
-  
+  ! xscav_frac1             fraction of particle masse which has been scavenged at receptor
+ 
 
 
@@ -746 +747 @@
 
   ! These variables are used to avoid having separate versions of
-  ! files in cases where differences with MPI version are minor (eso)
+  ! files in cases where differences with MPI version is minor (eso)
   !*****************************************************************
   integer :: mpi_mode=0 ! .gt. 0 if running MPI version
   logical :: lroot=.true. ! true if serial version, or if MPI .and. root process
+  
+  logical :: usekernel=.false.    ! true if the output kernel shall be switched on
+  logical :: interpolhmix=.false. ! true if the hmix shall be interpolated
+  logical :: turboff=.false.       ! true if the turbulence shall be switched off
+  
   
 contains