Changeset 5609 for LMDZ6/branches/contrails/libf/phylmd/dyn1d/old_lmdz1d.f90

Timestamp:

Apr 13, 2025, 7:10:19 PM (8 weeks ago)

Author:

aborella

Message:

• changed treatment of prognostic variables for prognostic clouds
• adapted sedimentation and autoconversion for prognostic cirrus clouds
• cloud mixing, ice sedimentation and ISSR diagnosis are now consistent with the water vapor PDF
• simplified assumptions for ice crystals deposition / sublimation
• first version of the coupling between prognostic cirrus clouds and deep convection
• added persistent contrail cirrus clouds in radiative diagnostics

File:

• LMDZ6/branches/contrails/libf/phylmd/dyn1d/old_lmdz1d.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/dyn1d/old_lmdz1d.f90

@@ -10 +10 @@
       USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
-       clwcon, detr_therm, &
+       cwcon, clwcon, detr_therm, &
        qsol, fevap, z0m, z0h, agesno, &
        du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &
@@ -23 +23 @@
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
        ql_ancien, qs_ancien, qbs_ancien, &
-       cf_ancien, qvc_ancien, cfa_ancien, qta_ancien, &
+       cf_ancien, qvc_ancien, cfa_ancien, pcf_ancien, qva_ancien, qia_ancien, &
        prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
        u10m,v10m,ale_wake,ale_bl_stat
@@ -874 +874 @@
           cf_ancien = 0.
           qvc_ancien = 0.
+          cwcon = 0.
         ENDIF
         IF ( ok_plane_contrail ) THEN
           cfa_ancien = 0.
-          qta_ancien = 0.
+          pcf_ancien = 0.
+          qva_ancien = 0.
+          qia_ancien = 0.
         ENDIF
 !jyg<