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

Timestamp:

Nov 21, 2025, 5:31:55 PM (39 hours ago)

Author:

aborella

Message:

Bugfix for compiling SCM and with ecRad with contrails

File:

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

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

@@ -24 +24 @@
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
        ql_ancien, qs_ancien, qbs_ancien, &
-       cf_ancien, qvc_ancien, qvcon, qccon, cfa_ancien, pcf_ancien, qva_ancien, qia_ancien, &
+       cf_ancien, qvc_ancien, qvcon, qccon, &
+       cfc_ancien, qtc_ancien, qic_ancien, nic_ancien, lic_ancien, &
        prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
        u10m,v10m,ale_wake,ale_bl_stat
@@ -892 +893 @@
         ENDIF
         IF ( ok_plane_contrail ) THEN
-          cfa_ancien = 0.
-          pcf_ancien = 0.
-          qva_ancien = 0.
-          qia_ancien = 0.
+          cfc_ancien = 0.
+          qtc_ancien = 0.
+          qic_ancien = 0.
+          nic_ancien = 0.
+          lic_ancien = 0.
         ENDIF
 !jyg<