Changeset 2899
- Timestamp:
- Jun 1, 2017, 5:32:54 PM (8 years ago)
- Location:
- LMDZ5/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90
r2788 r2899 43 43 sig1, ftsol, clwcon, fm_therm, wake_Cstar, pctsrf, entr_therm,radpas, f0,& 44 44 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 46 47 USE comconst_mod, ONLY: pi, dtvr 47 48 … … 201 202 t_ancien = 273.15 202 203 q_ancien = 0. 204 ql_ancien = 0. 205 qs_ancien = 0. 206 prlw_ancien = 0. 207 prsw_ancien = 0. 208 prw_ancien = 0. 203 209 agesno = 0. 204 210 -
LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90
r2789 r2899 20 20 wake_deltaq, wake_deltat, wake_s, wake_dens, & 21 21 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 23 24 24 25 USE dimphy … … 806 807 t_ancien(1,:)=temp(:) 807 808 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. 808 814 !jyg< 809 815 !! pbl_tke(:,:,:)=1.e-8
Note: See TracChangeset
for help on using the changeset viewer.