Ignore:
Timestamp:
Mar 19, 2026, 2:35:46 PM (13 days ago)
Author:
gmilcareck
Message:

Thermodynamics update on LMDZ.GENERIC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phygeneric/callkeys_mod.F90

    r4055 r4146  
    5959      logical,save :: generic_rain
    6060      logical,save :: virtual_theta_correction
    61 !$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation,generic_rain,virtual_theta_correction)
     61      character(64),save :: thermo_phy
     62!$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation,generic_rain,virtual_theta_correction,thermo_phy)
    6263      logical,save :: water ,watercond, waterrain, moistadjustment, moistadjustment_generic, moist_convection_inhibition
    6364!$OMP THREADPRIVATE(water, watercond, waterrain, moistadjustment, moistadjustment_generic, moist_convection_inhibition)
     65
     66      real, save :: metallicity !metallicity of planet
     67      real, save :: qvap_deep   ! deep mixing ratio of vapor when simulating bottom less planets
     68      real, save :: qvap_top   ! top mixing ratio of vapor when simulating bottom less planets
     69      logical, save :: align_strato_cold_trap
     70!$OMP THREADPRIVATE(metallicity, qvap_deep, qvap_top, align_strato_cold_trap)
     71
     72      logical,save :: evap_prec_generic ! Does the rain evaporate ?
     73      real,save :: evap_coeff_generic ! multiplication evaporation constant. 1. gives the model of gregory et al.
     74      integer,save :: precip_scheme_generic      ! id number for precipitaion scheme
     75      real,save :: rainthreshold_generic                ! Precipitation threshold in simple scheme
     76      real,save :: cloud_sat_generic                    ! Precipitation threshold in non simple scheme
     77      real,save :: precip_timescale_generic             ! Precipitation timescale
     78      real,save :: Cboucher_generic ! Precipitation constant in Boucher 95 scheme
     79!$OMP THREADPRIVATE(evap_prec_generic,evap_coeff_generic,precip_scheme_generic,rainthreshold_generic,cloud_sat_generic,precip_timescale_generic,Cboucher_generic)
     80
     81
    6482      logical,save :: aeroco2, aeroh2o, aeroh2so4, aeroback2lay
    6583!$OMP THREADPRIVATE(aeroco2, aeroh2o, aeroh2so4, aeroback2lay)
Note: See TracChangeset for help on using the changeset viewer.