Changeset 5228 for LMDZ6/branches/Amaury_dev

Timestamp:

Sep 25, 2024, 11:08:02 AM (2 months ago)

Author:

abarral

Message:

Merge r5212 r5213

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d

Files:

• lmdz_old_lmdz1d.F90 (modified) (2 diffs)
• lmdz_scm.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_lmdz1d.F90

@@ -24 +24 @@
             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, &
-            prlw_ancien, prsw_ancien, prw_ancien, &
+            zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
+            ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
+            prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
             u10m, v10m, ale_wake, ale_bl_stat
 
@@ -859 +860 @@
         prsw_ancien = 0.
         prw_ancien = 0.
+        IF ( ok_bs ) THEN
+          qbs_ancien = 0.
+          prbsw_ancien = 0.
+        END IF
+        IF (ok_ice_supersat) THEN
+        cf_ancien = 0.
+        rvc_ancien = 0.
+        END IF
                 !jyg<
                 !!        pbl_tke(:,:,:)=1.e-8

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

@@ -17 +17 @@
             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, &
-            prlw_ancien, prsw_ancien, prw_ancien, &
+            zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
+            ql_ancien, qs_ancien, qbs_ancien, cf_ancien, rvc_ancien, &
+            prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
             u10m, v10m, ale_wake, ale_bl_stat, ratqs_inter_
 
@@ -616 +617 @@
         prsw_ancien = 0.
         prw_ancien = 0.
+        IF ( ok_bs ) THEN
+           qbs_ancien = 0.
+           prbsw_ancien = 0.
+        END IF
+        IF ( ok_ice_supersat ) THEN
+          cf_ancien = 0.
+          rvc_ancien = 0.
+        END IF
         !jyg<
         ! Etienne: comment those lines since now the TKE is inialized in 1D_read_forc_cases