Changeset 2899 for LMDZ5/trunk


Ignore:
Timestamp:
Jun 1, 2017, 5:32:54 PM (7 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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r2788 r2899  
    4343    sig1, ftsol, clwcon, fm_therm, wake_Cstar,  pctsrf,  entr_therm,radpas, f0,&
    4444    zmax0,fevap, rnebcon,falb_dir, wake_fip,    agesno,  detr_therm, pbl_tke,  &
    45     phys_state_var_init
     45    phys_state_var_init, ql_ancien, qs_ancien, prlw_ancien, prsw_ancien, &
     46    prw_ancien
    4647  USE comconst_mod, ONLY: pi, dtvr
    4748
     
    201202  t_ancien   = 273.15
    202203  q_ancien   = 0.
     204  ql_ancien = 0.
     205  qs_ancien = 0.
     206  prlw_ancien = 0.
     207  prsw_ancien = 0.
     208  prw_ancien = 0.
    203209  agesno     = 0.
    204210
  • LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r2789 r2899  
    2020       wake_deltaq, wake_deltat, wake_s, wake_dens, &
    2121       zgam, zmax0, zmea, zpic, zsig, &
    22        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl
     22       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
     23       prlw_ancien, prsw_ancien, prw_ancien
    2324 
    2425   USE dimphy
     
    806807        t_ancien(1,:)=temp(:)
    807808        q_ancien(1,:)=q(:,1)
     809        ql_ancien = 0.
     810        qs_ancien = 0.
     811        prlw_ancien = 0.
     812        prsw_ancien = 0.
     813        prw_ancien = 0.
    808814!jyg<
    809815!!        pbl_tke(:,:,:)=1.e-8
Note: See TracChangeset for help on using the changeset viewer.