Changes from branches/FLEXPART_9.1.3/src/com_mod.f90 at r13 to trunk/src/com_mod.f90 at r4

File:

• trunk/src/com_mod.f90 (modified) (5 diffs, 1 prop)

trunk/src/com_mod.f90

@@ -7 +7 @@
 !        June 1996                                                             *
 !                                                                              *
-!        Last update:15 August 2013 IP                                         *
+!        Last update: 9 August 2000                                            *
 !                                                                              *
 !*******************************************************************************
@@ -139 +139 @@
   real :: decay(maxspec)
   real :: weta(maxspec),wetb(maxspec)
-! NIK: 31.01.2013- parameters for in-cloud scavening
-  real :: weta_in(maxspec), wetb_in(maxspec), wetc_in(maxspec), wetd_in(maxspec)
   real :: reldiff(maxspec),henry(maxspec),f0(maxspec)
   real :: density(maxspec),dquer(maxspec),dsigma(maxspec)
@@ -174 +172 @@
 
   ! WET DEPOSITION
-  ! weta, wetb              parameters for determining below-cloud wet scavenging coefficients
-  ! weta_in, wetb_in       parameters for determining in-cloud wet scavenging coefficients
-  ! wetc_in, wetd_in       parameters for determining in-cloud wet scavenging coefficients
+  ! weta, wetb              parameters for determining wet scavenging coefficients
 
   ! GAS DEPOSITION
@@ -335 +331 @@
   real :: qvh(0:nxmax-1,0:nymax-1,nuvzmax,2)
   real :: pplev(0:nxmax-1,0:nymax-1,nuvzmax,2)
-  !scavenging NIK, PS
   integer(kind=1) :: clouds(0:nxmax-1,0:nymax-1,nzmax,2)
   integer :: cloudsh(0:nxmax-1,0:nymax-1,2)
-      integer icloudbot(0:nxmax-1,0:nymax-1,2)
-      integer icloudthck(0:nxmax-1,0:nymax-1,2)
-
 
   ! uu,vv,ww [m/2]       wind components in x,y and z direction
@@ -354 +346 @@
   !      rainout  conv/lsp dominated  2/3
   !      washout  conv/lsp dominated  4/5
-! PS 2013
-!c icloudbot (m)        cloud bottom height
-!c icloudthck (m)       cloud thickness     
-
   ! pplev for the GFS version