Changeset 3584

Timestamp:

Oct 15, 2019, 2:54:35 AM (5 years ago)

Author:

fhourdin

Message:

Missing initialization

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -48 +48 @@
     phys_state_var_init, ql_ancien, qs_ancien, prlw_ancien, prsw_ancien, &
     prw_ancien, u10m,v10m, treedrg, u_ancien, v_ancien, wake_delta_pbl_TKE, wake_dens, &
-    ale_bl, ale_bl_trig, alp_bl
+    ale_bl, ale_bl_trig, alp_bl, &
+    ale_wake, ale_bl_stat
+
   USE comconst_mod, ONLY: pi, dtvr
 
@@ -232 +234 @@
   ale_bl_trig =0.
   alp_bl=0.
+  ale_wake=0.
+  ale_bl_stat=0.
   
   z0m(:,:)=0 ! ym missing 5th subsurface initialization