Changeset 1617 for trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90

Timestamp:

Oct 10, 2016, 11:26:09 AM (8 years ago)

Author:

jaudouard

Message:

Added modifications for CO2 clouds scheme in physiq_mod.F and added several routines and variables for CO2 microphysics. October 2016 Joachim Audouard

File:

• trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90 (modified) (3 diffs)

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

@@ -5 +5 @@
       ! number of tracers:
       integer,save :: nqmx ! initialized in conf_phys
-      
+   
       character*20,allocatable,save ::  noms(:)  ! name of the tracer
       real,allocatable,save :: mmol(:)           ! mole mass of tracer (g/mol-1) 
@@ -20 +20 @@
       real,save :: nuice_sed   ! Sedimentation effective variance of the water ice dist.
       real,save :: ref_r0        ! for computing reff=ref_r0*r0 (in log.n. distribution)
-      
+      real,save :: rho_ice_co2     ! co2 ice density (kg.m-3)
+      real,save :: nuiceco2_sed   ! Sedimentation effective variance of the co2 ice dist.
+      real,save :: nuiceco2_ref   ! Effective variance of the co2 ice dist.
+
       real,save :: ccn_factor  ! ratio of nuclei for water ice particles
 
       INTEGER,ALLOCATABLE,SAVE :: nqdust(:) ! to store the indexes of dust tracers (cf aeropacity)
+      real,allocatable,save :: dryness(:)!"Dryness coefficient" for grnd water ice sublimation
+
 
 ! tracer indexes: these are initialized in initracer and should be 0 if the
@@ -37 +42 @@
       integer,save :: igcm_ccn_number ! CCN number mixing ratio
       integer,save :: igcm_dust_submicron ! submicron dust mixing ratio
-                                     !   (transported dust)
+    
+      integer,save :: igcm_ccnco2_mass   ! CCN (dust and/or water ice) for CO2 mass mixing ratio
+      integer,save :: igcm_ccnco2_number ! CCN (dust and/or water ice) for CO2 number mixing ratio
+
       ! water
       integer,save :: igcm_h2o_vap ! water vapour
       integer,save :: igcm_h2o_ice ! water ice
+      integer,save :: igcm_co2_ice ! co2 ice
+
       ! chemistry:
       integer,save :: igcm_co2