Changeset 4933 for LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

Timestamp:

May 4, 2024, 1:03:50 PM (4 weeks ago)

Author:

Laurent Fairhead

Message:

Putting the initialisation in a more judicious place

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90 (modified) (2 diffs)

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

@@ -16 +16 @@
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
        prlw_ancien, prsw_ancien, prw_ancien, &
-       u10m,v10m,ale_wake,ale_bl_stat
+       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
 
   
@@ -685 +685 @@
         ale_wake=0.
         ale_bl_stat=0.
+        ratqs_inter_(:,:)= 0.002
 
 !------------------------------------------------------------------------