Changeset 1685 for trunk/LMDZ.MARS/libf/phymars/microphys.h

Timestamp:

Apr 3, 2017, 11:08:39 AM (8 years ago)

Author:

jaudouard

Message:

Further modifications on CO2 clouds scheme. Water ice clouds can now serve as CCN for CO2 clouds

File:

• trunk/LMDZ.MARS/libf/phymars/microphys.h (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/microphys.h

@@ -22 +22 @@
       DOUBLE PRECISION, PARAMETER :: mn2 = 28.01d-3
 !     Effective CO2 gas molecular radius (m)
-      DOUBLE PRECISION, PARAMETER :: molco2 = 2.2d-10
+  !    bachnar 2016 value :1.97d-10   ! old value = 2.2d-10
+      DOUBLE PRECISION, PARAMETER :: molco2 = 1.97d-10
 !     Effective H2O gas molecular radius (m)
       DOUBLE PRECISION, PARAMETER :: molh2o = 1.2d-10
@@ -54 +55 @@
 !CO2 part
 !      number of bins for nucleation
-      INTEGER, PARAMETER :: nbinco2_cld=40
+      INTEGER, PARAMETER :: nbinco2_cld=100
 !     Surface tension of ice/vapor (J.m-2)
       DOUBLE PRECISION, PARAMETER :: sigco2 = 0.08
@@ -60 +61 @@
 !       water on a dust-like substrate
 !       (J/molecule)
-      DOUBLE PRECISION, PARAMETER :: desorpco2 = 3.25e-20
+      DOUBLE PRECISION, PARAMETER ::desorpco2=3.07e-20
+!     bachnar 2016 value 3.07d-20 
+!old value 3.20e-20
 !     Jump frequency of a co2 molecule (s-1)
       DOUBLE PRECISION, PARAMETER :: nusco2 =  2.9e+12
@@ -71 +74 @@
 !     Contact parameter ( m=cos(theta) )
 !       (initialized in improvedCO2clouds.F)
-       REAL, parameter :: mtetaco2 = 0.952
+!    bachnar 2016 value :0.78 
+!old value 0.952
+      REAL, parameter :: mtetaco2 = 0.78
 !     Volume of a co2 molecule (m3)
        DOUBLE PRECISION :: vo1co2
 !     Radius used by the microphysical scheme (m)
       DOUBLE PRECISION :: rad_cldco2(nbinco2_cld)
-       REAL, parameter :: threshJA = 1.0
+       REAL, parameter :: threshJA = 1
 !     COMMON/microphys/vo1co2,rad_cldco2