Ignore:
Timestamp:
Sep 18, 2025, 10:29:26 AM (2 months ago)
Author:
idelkadi
Message:

Added a formulation to prescribe effective cloud size as a hyperbolic tangent function of pressure for calculating radiative fluxes related to 3D cloud effects.
Activation is controlled in namelist_ecrad by the logical key ok_separation_tanh

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_scheme_mod.f90

    r5675 r5821  
    428428               &  driver_config%high_inv_effective_size, 0.8_jprb, 0.45_jprb, &
    429429               &  KIDIA, KFDIA)
    430    else if (driver_config%ok_separation) then
     430   else if (driver_config%ok_separation_eta) then
    431431     call cloud%param_cloud_effective_separation_eta(klon, klev, &
     432               &  thermodynamics%pressure_hl, &
     433               &  driver_config%cloud_separation_scale_surface, &
     434               &  driver_config%cloud_separation_scale_toa, &
     435               &  driver_config%cloud_separation_scale_power, &
     436               &  driver_config%cloud_inhom_separation_factor, &
     437               &  KIDIA, KFDIA)
     438   else if (driver_config%ok_separation_tanh) then
     439     call cloud%param_cloud_effective_separation_tanh(klon, klev, &
    432440               &  thermodynamics%pressure_hl, &
    433441               &  driver_config%cloud_separation_scale_surface, &
    … …  
    11341142               &  driver_config%high_inv_effective_size, 0.8_jprb, 0.45_jprb, &
    11351143               &  KIDIA, KFDIA)
    1136    else if (driver_config%ok_separation) then
     1144   else if (driver_config%ok_separation_eta) then
    11371145     call cloud%param_cloud_effective_separation_eta(klon, klev, &
     1146               &  thermodynamics%pressure_hl, &
     1147               &  driver_config%cloud_separation_scale_surface, &
     1148               &  driver_config%cloud_separation_scale_toa, &
     1149               &  driver_config%cloud_separation_scale_power, &
     1150               &  driver_config%cloud_inhom_separation_factor, &
     1151               &  KIDIA, KFDIA)
     1152   else if (driver_config%ok_separation_tanh) then
     1153     call cloud%param_cloud_effective_separation_tanh(klon, klev, &
    11381154               &  thermodynamics%pressure_hl, &
    11391155               &  driver_config%cloud_separation_scale_surface, &
Note: See TracChangeset for help on using the changeset viewer.