Changeset 3080 for LMDZ6/trunk/libf/phylmd/phyetat0.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/phyetat0.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyetat0.F90

@@ -18 +18 @@
        wake_deltat, wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
        wake_s, wake_dens, zgam, zmax0, zmea, zpic, zsig, &
-       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m, treedrg
+       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m, treedrg, &
+       ale_wake, ale_bl_stat
 !FC
   USE geometry_mod, ONLY : longitude_deg, latitude_deg
@@ -419 +420 @@
   found=phyetat0_get(1,ale_bl_trig,"ALE_BL_TRIG","ALE BL_TRIG",0.)
   found=phyetat0_get(1,alp_bl,"ALP_BL","ALP BL",0.)
+  found=phyetat0_get(1,ale_wake,"ALE_WAKE","ALE_WAKE",0.)
+  found=phyetat0_get(1,ale_bl_stat,"ALE_BL_STAT","ALE_BL_STAT",0.)
 
 !===========================================