lmdz_lscp_ini Module


Contents

Variables

RCPD RLSTT RLVTT RLMLT RVTMP2 RTT RD RV RG RPI EPS_W iflag_ratqs seuil_neb min_neb_th min_frac_thermals lunout prt_level niter_lscp iflag_evap_prec t_coup DDT0 ztfondue temp_nowater a_tr_sca min_frac_th_cld ok_radocond_snow t_glace_min t_glace_max exposant_glace iflag_vice iflag_t_glace iflag_gammasat iflag_rain_incloud_vol iflag_bergeron iflag_fisrtilp_qsat iflag_pdf iflag_icefrac iflag_autoconversion ok_bug_phase_lscp reevap_ice cld_lc_lsc cld_lc_con cld_tau_lsc cld_tau_con cld_expo_lsc cld_expo_con ffallv_lsc ffallv_con coef_eva coef_sub expo_eva expo_sub cice_velo dice_velo dist_liq tresh_cl ok_ice_supersat ok_unadjusted_clouds ok_weibull_warm_clouds iflag_cloud_sublim_pdf depo_coef_cirrus capa_cond_cirrus std_subl_pdf_lscp mu_subl_pdf_lscp beta_pdf_lscp temp_thresh_pdf_lscp k0_pdf_lscp kappa_pdf_lscp std100_pdf_lscp a_homofreez b_homofreez delta_hetfreez coef_mixing_lscp coef_shear_lscp chi_mixing_lscp ok_poprecip ok_corr_vap_evasub ok_growth_precip_deposition cld_lc_lsc_snow cld_lc_con_snow rain_int_min thresh_precip_frac capa_crystal naero5 gamma_snwretro gamma_mixth gamma_taud gamma_col gamma_agg gamma_rim gamma_melt gamma_freez rho_rain rho_ice r_rain r_snow tau_auto_snow_min tau_auto_snow_max expo_tau_auto_snow eps alpha_freez beta_freez rain_fallspeed rain_fallspeed_clr rain_fallspeed_cld snow_fallspeed snow_fallspeed_clr snow_fallspeed_cld ok_lscp_mergecond iflag_cloudth_vert iflag_cloudth_vert_noratqs cloudth_ratqsmin sigma1s_factor sigma2s_factor sigma1s_power sigma2s_power vert_alpha vert_alpha_th iflag_oldbug_fisrtilp fl_cor_ebil

Subroutines


Variables

Type Visibility Attributes Name Initial
real, public :: RCPD
real, public :: RLSTT
real, public :: RLVTT
real, public :: RLMLT
real, public :: RVTMP2
real, public :: RTT
real, public :: RD
real, public :: RV
real, public :: RG
real, public :: RPI
real, public :: EPS_W
integer, protected, SAVE :: iflag_ratqs
real, protected, SAVE :: seuil_neb = 0.001
real, protected, SAVE :: min_neb_th = 1e-10
real, protected, SAVE :: min_frac_thermals = 1.e-10
integer, public, SAVE :: lunout
integer, public, SAVE :: prt_level
integer, protected, SAVE :: niter_lscp = 5
integer, protected, SAVE :: iflag_evap_prec = 1
real, protected, SAVE :: t_coup = 234.0
real, protected, SAVE :: DDT0 = 0.01
real, protected, SAVE :: ztfondue = 278.15
real, protected, SAVE :: temp_nowater = 235.15
real, protected, SAVE :: a_tr_sca(4)
real, protected, SAVE :: min_frac_th_cld = 1.e-10
logical, protected, SAVE :: ok_radocond_snow = .false.
real, protected, SAVE :: t_glace_min = 258.0
real, protected, SAVE :: t_glace_max = 273.15
real, protected, SAVE :: exposant_glace = 1.0
integer, protected, SAVE :: iflag_vice = 0
integer, protected, SAVE :: iflag_t_glace = 0
integer, protected, SAVE :: iflag_gammasat = 0
integer, protected, SAVE :: iflag_rain_incloud_vol = 0
integer, protected, SAVE :: iflag_bergeron = 0
integer, protected, SAVE :: iflag_fisrtilp_qsat = 0
integer, protected, SAVE :: iflag_pdf = 0
integer, protected, SAVE :: iflag_icefrac = 0
integer, protected, SAVE :: iflag_autoconversion = 0
logical, protected, SAVE :: ok_bug_phase_lscp = .true.
logical, protected, SAVE :: reevap_ice = .false.
real, protected, SAVE :: cld_lc_lsc = 2.6e-4
real, protected, SAVE :: cld_lc_con = 2.6e-4
real, protected, SAVE :: cld_tau_lsc = 3600.
real, protected, SAVE :: cld_tau_con = 3600.
real, protected, SAVE :: cld_expo_lsc = 2.
real, protected, SAVE :: cld_expo_con = 2.
real, protected, SAVE :: ffallv_lsc = 1.
real, protected, SAVE :: ffallv_con = 1.
real, protected, SAVE :: coef_eva = 2e-5
real, protected, SAVE :: coef_sub
real, protected, SAVE :: expo_eva = 0.5
real, protected, SAVE :: expo_sub
real, protected, SAVE :: cice_velo = 1.645
real, protected, SAVE :: dice_velo = 0.16
real, protected, SAVE :: dist_liq = 300.
real, protected, SAVE :: tresh_cl = 0.0
logical, protected, SAVE :: ok_ice_supersat = .FALSE.
logical, protected, SAVE :: ok_unadjusted_clouds = .FALSE.
logical, protected, SAVE :: ok_weibull_warm_clouds = .FALSE.
integer, protected, SAVE :: iflag_cloud_sublim_pdf = 4
real, protected, SAVE :: depo_coef_cirrus = .7
real, protected, SAVE :: capa_cond_cirrus = .5
real, protected, SAVE :: std_subl_pdf_lscp = 2.
real, protected, SAVE :: mu_subl_pdf_lscp = 1./3.
real, protected, SAVE :: beta_pdf_lscp = 1.E-3
real, protected, SAVE :: temp_thresh_pdf_lscp = 189.
real, protected, SAVE :: k0_pdf_lscp = 3.01
real, protected, SAVE :: kappa_pdf_lscp = 0.0192
real, protected, SAVE :: std100_pdf_lscp = 4.08
real, protected, SAVE :: a_homofreez = 2.349
real, protected, SAVE :: b_homofreez = 259.
real, protected, SAVE :: delta_hetfreez = 1.
real, protected, SAVE :: coef_mixing_lscp = 1.E-3
real, protected, SAVE :: coef_shear_lscp = 0.72
real, protected, SAVE :: chi_mixing_lscp = 1.
logical, protected, SAVE :: ok_poprecip = .FALSE.
logical, protected, SAVE :: ok_corr_vap_evasub = .FALSE.
logical, protected, SAVE :: ok_growth_precip_deposition = .FALSE.
real, protected, SAVE :: cld_lc_lsc_snow = 2.e-5
real, protected, SAVE :: cld_lc_con_snow = 2.e-5
real, protected, SAVE :: rain_int_min = 1.e-5
real, protected, SAVE :: thresh_precip_frac = 1.E-6
real, protected, SAVE :: capa_crystal = 1.
real, protected, SAVE :: naero5 = 0.5
real, protected, SAVE :: gamma_snwretro = 0.
real, protected, SAVE :: gamma_mixth = 1.
real, protected, SAVE :: gamma_taud = 1.
real, protected, SAVE :: gamma_col = 1.
real, protected, SAVE :: gamma_agg = 1.
real, protected, SAVE :: gamma_rim = 1.
real, protected, SAVE :: gamma_melt = 1.
real, protected, SAVE :: gamma_freez = 1.
real, protected, SAVE :: rho_rain = 1000.
real, protected, SAVE :: rho_ice = 920.
real, protected, SAVE :: r_rain = 500.E-6
real, protected, SAVE :: r_snow = 1.E-3
real, protected, SAVE :: tau_auto_snow_min = 100.
real, protected, SAVE :: tau_auto_snow_max = 1000.
real, protected, SAVE :: expo_tau_auto_snow = 0.1
real, protected, SAVE :: eps = 1.E-10
real, protected, SAVE :: alpha_freez = 4.
real, protected, SAVE :: beta_freez = 0.1
real, protected, SAVE :: rain_fallspeed = 4.
real, protected, SAVE :: rain_fallspeed_clr
real, protected, SAVE :: rain_fallspeed_cld
real, protected, SAVE :: snow_fallspeed = 1.
real, protected, SAVE :: snow_fallspeed_clr
real, protected, SAVE :: snow_fallspeed_cld
logical, protected, SAVE :: ok_lscp_mergecond = .false.
integer, protected, SAVE :: iflag_cloudth_vert = 0
integer, protected, SAVE :: iflag_cloudth_vert_noratqs = 0
real, protected, SAVE :: cloudth_ratqsmin = -1.
real, protected, SAVE :: sigma1s_factor = 1.1
real, protected, SAVE :: sigma2s_factor = 0.09
real, protected, SAVE :: sigma1s_power = 0.6
real, protected, SAVE :: sigma2s_power = 0.5
real, protected, SAVE :: vert_alpha = 0.5
real, protected, SAVE :: vert_alpha_th = 0.5
integer, protected, SAVE :: iflag_oldbug_fisrtilp = 0
integer, protected, SAVE :: fl_cor_ebil

Subroutines

public subroutine lscp_ini(dtime, lunout_in, prt_level_in, ok_ice_supersat_in, iflag_ratqs_in, fl_cor_ebil_in, RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in, RVTMP2_in, RTT_in, RD_in, RV_in, RG_in, RPI_in, EPS_W_in)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
integer, intent(in) :: lunout_in
integer, intent(in) :: prt_level_in
logical, intent(in) :: ok_ice_supersat_in
integer, intent(in) :: iflag_ratqs_in
integer, intent(in) :: fl_cor_ebil_in
real, intent(in) :: RCPD_in
real, intent(in) :: RLSTT_in
real, intent(in) :: RLVTT_in
real, intent(in) :: RLMLT_in
real, intent(in) :: RVTMP2_in
real, intent(in) :: RTT_in
real, intent(in) :: RD_in
real, intent(in) :: RV_in
real, intent(in) :: RG_in
real, intent(in) :: RPI_in
real, intent(in) :: EPS_W_in