Changeset 3080 for LMDZ6/trunk/libf/phylmd/phyredem.F90

Timestamp:

Nov 19, 2017, 11:38:51 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Adding some missing variables to the start files to get 1+1=2 when
we use the gusts parametrization
LF

File:

• LMDZ6/trunk/libf/phylmd/phyredem.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ +1 @@
+!
+! $Id$
+!
 SUBROUTINE phyredem (fichnom)
 !
@@ -21 +24 @@
                                 wake_cstar,                                  &
                                 wake_pe, wake_fip, fm_therm, entr_therm,     &
-                                detr_therm, Ale_bl, Ale_bl_trig, Alp_bl,     &
+                                detr_therm, ale_bl, ale_bl_trig, alp_bl,     &
+                                ale_wake, ale_bl_stat,                       &
                                 du_gwd_rando, du_gwd_front, u10m, v10m,      &
                                 treedrg
@@ -282 +286 @@
   CALL put_field("DETR_THERM", "DETR_THERM", detr_therm)
 
-  CALL put_field("ALE_BL", "ALE_BL", Ale_bl)
-
-  CALL put_field("ALE_BL_TRIG", "ALE_BL_TRIG", Ale_bl_trig)
-
-  CALL put_field("ALP_BL", "ALP_BL", Alp_bl)
+  CALL put_field("ALE_BL", "ALE_BL", ale_bl)
+
+  CALL put_field("ALE_BL_TRIG", "ALE_BL_TRIG", ale_bl_trig)
+
+  CALL put_field("ALP_BL", "ALP_BL", alp_bl)
+
+  CALL put_field("ALE_WAKE", "ALE_WAKE", ale_wake)
+
+  CALL put_field("ALE_BL_STAT", "ALE_BL_STAT", ale_bl_stat)
+
 
   ! trs from traclmdz_mod