Changeset 2387 for LMDZ5/trunk/libf/phylmd/thermcell_alp.F90

Timestamp:

Nov 7, 2015, 10:27:40 AM (9 years ago)

Author:

fhourdin

Message:

Poursuite du travail sur les thermiques.
Extraction d'une routine calculant l'alimentation laterale à la base.
+ une correction de Jean-Yves sur des initialisations maquantes dans
thermcell_main (mais qui sont maintenant dans thermcell_alp).

File:

• LMDZ5/trunk/libf/phylmd/thermcell_alp.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/thermcell_alp.F90

@@ -156 +156 @@
 
 
+!------------------------------------------------------------
+!  Initialize output arrays related to stochastic triggering
+!------------------------------------------------------------
+  DO ig = 1,klon
+     zlcl(ig) = 0.
+     fraca0(ig) = 0.
+     w0(ig) = 0.
+     w_conv(ig) = 0.
+     therm_tke_max0(ig) = 0.
+     env_tke_max0(ig) = 0.
+     n2(ig) = 0.
+     s2(ig) = 0.
+     ale_bl_stat(ig) = 0.
+     alp_bl_det(ig) = 0.
+     alp_bl_fluct_m(ig) = 0.
+     alp_bl_fluct_tke(ig) = 0.
+     alp_bl_conv(ig) = 0.
+     alp_bl_stat(ig) = 0.
+  ENDDO
+  DO l = 1,klev
+    DO ig = 1,klon
+     therm_tke_max(ig,l) = 0.
+     env_tke_max(ig,l) = 0.
+    ENDDO
+  ENDDO
+!------------------------------------------------------------
+
+
 !------------Test sur le LCL des thermiques
     do ig=1,ngrid