Changeset 37 for branches/petra/src/par_mod.f90

Timestamp:

Apr 22, 2015, 3:42:35 PM (9 years ago)

Author:

pesei

Message:

Wet dep quick fix and other small changes. Wet depo quick fix not final yet.

File:

• branches/petra/src/par_mod.f90 (modified) (2 diffs)

branches/petra/src/par_mod.f90

@@ -103 +103 @@
 
   integer,parameter :: idiffnorm=10800, idiffmax=2*idiffnorm, minstep=1
+  integer,parameter :: itagekernmin=10800
 
   ! idiffnorm [s]           normal time interval between two wind fields
   ! idiffmax [s]            maximum time interval between two wind fields
   ! minstep [s]             minimum time step to be used within FLEXPART
-
+  ! itagekernmin [s]        minimum particle age [s] for using output kernel
 
   !*****************************************************************
@@ -265 +266 @@
 
 !******************************************************
-! integer code for missing values, used in wet scavenging (PS, 2012)
+! for use in wet scavenging (PS, 2012, 2015)
 !******************************************************
 
-    !  integer icmv
-    !  parameter(icmv=-9999)
-      integer,parameter ::  icmv=-9999
+  integer,parameter :: icmv=-9999 ! integer code for missing values 
+  ! some cloud heights used when trying to construct reasonable cloud:
+  integer,parameter :: icloudtopconvmin = 6000
+  integer,parameter :: icloudtopmin = 3000
+  integer,parameter :: icloudbot1 = 500, icloudtop1 =  8000
+  integer,parameter :: icloudbot2 = 0,   icloudtop2 = 10000
+  
+  real, parameter :: precmin = 0.002 ! minimum prec in mm/h for cloud diagnostics
+  real, parameter :: rhmininit = 0.90 ! standard condition for presence of clouds
+! PS       note that original by Sabine Eckhart was 80%
+! PS       however, for T<-20 C we consider saturation over ice
+! PS       so I think 90% should be enough          
+  real, parameter :: rhminx = 0.30 ! extreme condition for presence of clouds
 
 ! Parameters for testing