Changeset 1816 for trunk/LMDZ.MARS/libf/phymars/updaterad.F90

Timestamp:

Nov 2, 2017, 4:40:47 PM (7 years ago)

Author:

jaudouard

Message:

Commit for CO2 clouds microphysics.

File:

• trunk/LMDZ.MARS/libf/phymars/updaterad.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/updaterad.F90

@@ -10 +10 @@
 ! So, subroutines are designed for scalar values instead of tables
 
-
 ! T. Navarro, June 2012
 ! CO2 clouds added 09/16 by J. Audouard
@@ -19 +18 @@
 real, parameter :: r3icemin = 1.e-30   ! ie ricemin  = 0.0001 microns
 real, parameter :: ricemin  = 1.e-10
-
 real, parameter :: r3icemax = 125.e-12 ! ie ricemax  = 500 microns
 real, parameter :: ricemax  = 500.e-6 
@@ -25 +23 @@
 double precision, parameter :: r3iceco2min = 1.e-30
 double precision, parameter :: riceco2min  = 1.e-10
-
 double precision, parameter :: r3iceco2max = 125.e-12
 double precision, parameter :: riceco2max  = 500.e-6
-
 
 real, parameter :: qice_threshold  = 1.e-15 ! 1.e-10
@@ -108 +104 @@
 USE comcstfi_h, only:  pi
 implicit none
-!By CL and JA 09/16
+!CO2 clouds parameter update by CL and JA 09/16
 
 DOUBLE PRECISION, intent(in)  :: qice,qccn,nccn