Changeset 5626 for LMDZ6/branches/contrails/libf/phylmd/dyn1d

Timestamp:

Apr 23, 2025, 10:51:22 AM (8 months ago)

Author:

aborella

Message:

Corrections coupling with convective clouds

Location:

LMDZ6/branches/contrails/libf/phylmd/dyn1d

Files:

• old_lmdz1d.f90 (modified) (3 diffs)
• scm.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, &
-       cwcon, clwcon, detr_therm, &
+       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, pcf_ancien, qva_ancien, qia_ancien, &
+       cf_ancien, qvc_ancien, qvcon, qccon, 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.
+          qvcon = 0.
+          qccon = 0.
         ENDIF
         IF ( ok_plane_contrail ) THEN

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

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