Changeset 5212

Timestamp:

Sep 21, 2024, 2:27:30 PM (3 months ago)

Author:

evignon

Message:

nettoyage 1d suite à l'ajout de lanouvelle param de cirrus d'Audran Borella

Location:

LMDZ6/trunk/libf/phylmd/dyn1d

Files:

• old_lmdz1d.F90 (modified) (2 diffs)
• scm.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

@@ -18 +18 @@
        awake_dens, cv_gen, wake_cstar, &
        zgam, zmax0, zmea, zpic, zsig, &
-       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
+       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
+       ql_ancien, qs_ancien, cf_ancien, rvc_ancien, &
        prlw_ancien, prsw_ancien, prw_ancien, &
        u10m,v10m,ale_wake,ale_bl_stat
@@ -865 +866 @@
         prsw_ancien = 0.
         prw_ancien = 0.
+        IF ( ok_ice_supersat ) THEN
+          cf_ancien = 0.
+          rvc_ancien = 0.
+        ENDIF
 !jyg<
 !!        pbl_tke(:,:,:)=1.e-8

LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

@@ -14 +14 @@
        awake_dens, cv_gen, wake_cstar, &
        zgam, zmax0, zmea, zpic, zsig, &
-       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
+       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
+       ql_ancien, qs_ancien, cf_ancien, rvc_ancien, &
        prlw_ancien, prsw_ancien, prw_ancien, &
        u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
@@ -630 +631 @@
         prsw_ancien = 0.
         prw_ancien = 0.
+        IF ( ok_ice_supersat ) THEN
+          cf_ancien = 0.
+          rvc_ancien = 0.
+        ENDIF
 !jyg<
 ! Etienne: comment those lines since now the TKE is inialized in 1D_read_forc_cases