Changeset 2712

Timestamp:

Jun 21, 2022, 11:05:40 AM (3 years ago)

Author:

aslmd

Message:

new variables for condensable data

File:

• trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90

@@ -41 +41 @@
 !$OMP THREADPRIVATE(is_recomb,is_recomb_qset,is_recomb_qotf)
        integer, save, allocatable :: is_condensable(:)      ! 1 if tracer is generic, else 0 (added LT)
+
+       ! Lists of constants for condensable tracers
+       integer, save, allocatable :: constants_mass(:)                    ! molecular mass of the specie (g/mol)
+       integer, save, allocatable :: constants_delta_vapH(:)           ! Enthalpy of vaporization (J/mol)
+       integer, save, allocatable :: constants_Tref(:)                 ! Ref temperature for Clausis-Clapeyron (K)
+       integer, save, allocatable :: constants_Pref(:)                 ! Reference pressure for Clausius Clapeyron (Pa)
+       integer, save, allocatable :: constants_epsi(:)                 ! fractionnal molecular mass (m/mugaz)
+       integer, save, allocatable :: constants_RLVTT(:)                ! Latent heat of vaporization (J/kg)
+       integer, save, allocatable :: constants_metallicity_coeff(:)    ! Coefficient to take into account the metallicity
+
 !$OMP THREADPRIVATE(is_condensable)   !also added by LT
 ! tracer indexes: these are initialized in initracer and should be 0 if the
@@ -90 +100 @@
        integer,save :: igcm_hcaer
 
-       ! generic tracer (added LT 2022)
-       integer,save :: igcm_generic_Fe_vap
-       integer,save :: igcm_generic_Fe_ice
-       integer,save :: igcm_generic_Cr_vap
-       integer,save :: igcm_generic_Cr_ice
-       integer,save :: igcm_generic_Mg_vap
-       integer,save :: igcm_generic_Mg_ice
-       integer,save :: igcm_generic_Na_vap
-       integer,save :: igcm_generic_Na_ice
-       integer,save :: igcm_generic_KCl_vap
-       integer,save :: igcm_generic_KCl_ice
-       integer,save :: igcm_generic_Mn_vap
-       integer,save :: igcm_generic_Mn_ice
-       integer,save :: igcm_generic_Zn_vap
-       integer,save :: igcm_generic_Zn_ice
-
        ! other tracers
        integer,save :: igcm_ar_n2 ! for simulations using co2 +neutral gaz
@@ -114 +108 @@
        !$OMP igcm_n,igcm_no,igcm_no2,igcm_n2d,igcm_ch4,igcm_ch3,igcm_ch,igcm_3ch2,               &
        !$OMP igcm_1ch2,igcm_cho,igcm_ch2o,igcm_ch3o,igcm_c,igcm_c2,igcm_c2h,igcm_c2h2,           &
-       !$OMP igcm_c2h3,igcm_c2h4,igcm_c2h6,igcm_ch2co,igcm_ch3co,igcm_hcaer,igcm_generic_Fe_vap, &
-       !$OMP igcm_generic_Fe_ice, igcm_generic_Cr_vap,igcn_generic_Cr_ice,igcm_generic_Mg_vap,   &
-       !$OMP igcm_generic_Mg_ice, igcm_generic_Na_vap,igcm_generic_Na_ice,igcm_generic_KCl_vap,  &
-       !$OMP igcm_generic_KCl_ice,igcm_generic_Mn_vap,igcm_generic_Mn_ice,igcm_generic_Zn_vap,   &
-       !$OMP igcm_generic_Zn_ice)
+       !$OMP igcm_c2h3,igcm_c2h4,igcm_c2h6,igcm_ch2co,igcm_ch3co,igcm_hcaer)
 
        end module tracer_h