Changeset 2899 for LMDZ5/trunk/libf

Timestamp:

Jun 1, 2017, 5:32:54 PM (8 years ago)

Author:

lguez

Message:

startphy.nc created by ce0l and lmdz1d was not reproducible because
ql_ancien, qs_ancien, prlw_ancien, prsw_ancien, prw_ancien were not
defined before the call to phyredem.

Location:

LMDZ5/trunk/libf

Files:

• dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (2 diffs)
• phylmd/dyn1d/lmdz1d.F90 (modified) (2 diffs)

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

@@ -43 +43 @@
     sig1, ftsol, clwcon, fm_therm, wake_Cstar,  pctsrf,  entr_therm,radpas, f0,&
     zmax0,fevap, rnebcon,falb_dir, wake_fip,    agesno,  detr_therm, pbl_tke,  &
-    phys_state_var_init
+    phys_state_var_init, ql_ancien, qs_ancien, prlw_ancien, prsw_ancien, &
+    prw_ancien
   USE comconst_mod, ONLY: pi, dtvr
 
@@ -201 +202 @@
   t_ancien   = 273.15
   q_ancien   = 0.
+  ql_ancien = 0.
+  qs_ancien = 0.
+  prlw_ancien = 0.
+  prsw_ancien = 0.
+  prw_ancien = 0.
   agesno     = 0.
 

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -20 +20 @@
        wake_deltaq, wake_deltat, wake_s, wake_dens, &
        zgam, zmax0, zmea, zpic, zsig, &
-       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl
+       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
+       prlw_ancien, prsw_ancien, prw_ancien
   
    USE dimphy
@@ -806 +807 @@
         t_ancien(1,:)=temp(:)
         q_ancien(1,:)=q(:,1)
+        ql_ancien = 0.
+        qs_ancien = 0.
+        prlw_ancien = 0.
+        prsw_ancien = 0.
+        prw_ancien = 0.
 !jyg<
 !!        pbl_tke(:,:,:)=1.e-8