Changeset 2393 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Nov 18, 2015, 12:25:20 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r2385 r2393 71 71 o_tSTDlevs, epsfra, o_t_oce_sic, & 72 72 o_ale_bl, o_alp_bl, o_ale_wk, o_alp_wk, & 73 o_dtvdf_x , o_dtvdf_w , o_dqvdf_x , o_dqvdf_w , & 74 o_sens_x , o_sens_w , o_flat_x , o_flat_w , & 75 o_delta_tsurf, & 76 o_cdragh_x , o_cdragh_w , o_cdragm_x , o_cdragm_w , & 77 o_kh , o_kh_x , o_kh_w , & 73 78 o_ale, o_alp, o_cin, o_WAPE, o_wake_h, & 74 79 o_wake_s, o_wake_deltat, o_wake_deltaq, & … … 167 172 sollwdownclr, lwdn0, ftsol, ustar, u10m, & 168 173 v10m, pbl_tke, wake_delta_pbl_TKE, & 174 delta_tsurf, & 169 175 wstar, cape, ema_pcb, ema_pct, & 170 176 ema_cbmf, Ma, fm_therm, ale_bl, alp_bl, ale, & … … 197 203 s_pblh, s_pblt, s_lcl, s_therm, uwriteSTD, & 198 204 vwriteSTD, wwriteSTD, phiwriteSTD, qwriteSTD, & 199 twriteSTD, ale_wake, alp_wake, wake_h, & 205 twriteSTD, ale_wake, alp_wake, & 206 dtvdf_x ,dtvdf_w ,dqvdf_x ,dqvdf_w , & 207 sens_x ,sens_w ,zxfluxlat_x,zxfluxlat_w, & 208 cdragh_x ,cdragh_w ,cdragm_x ,cdragm_w , & 209 kh ,kh_x ,kh_w , & 210 wake_h, & 200 211 wake_omg, d_t_wake, d_q_wake, Vprecip, & 201 212 wdtrainA, wdtrainM, n2, s2, proba_notrig, & … … 754 765 CALL histwrite_phy(o_ale_wk, ale_wake) 755 766 CALL histwrite_phy(o_alp_wk, alp_wake) 767 IF (iflag_pbl_split>=1) THEN 768 IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dtvdf_x(1:klon,1:klev)/pdtphys 769 CALL histwrite_phy(o_dtvdf_x ,zx_tmp_fi3d) 770 IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dtvdf_w(1:klon,1:klev)/pdtphys 771 CALL histwrite_phy(o_dtvdf_w ,zx_tmp_fi3d) 772 IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dqvdf_x(1:klon,1:klev)/pdtphys 773 CALL histwrite_phy(o_dqvdf_x ,zx_tmp_fi3d) 774 IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dqvdf_w(1:klon,1:klev)/pdtphys 775 CALL histwrite_phy(o_dqvdf_w ,zx_tmp_fi3d) 776 CALL histwrite_phy(o_sens_x ,sens_x ) 777 CALL histwrite_phy(o_sens_w ,sens_w ) 778 CALL histwrite_phy(o_flat_x ,zxfluxlat_x) 779 CALL histwrite_phy(o_flat_w ,zxfluxlat_w) 780 CALL histwrite_phy(o_delta_tsurf,delta_tsurf) 781 CALL histwrite_phy(o_cdragh_x ,cdragh_x ) 782 CALL histwrite_phy(o_cdragh_w ,cdragh_w ) 783 CALL histwrite_phy(o_cdragm_x ,cdragm_x ) 784 CALL histwrite_phy(o_cdragm_w ,cdragm_w ) 785 CALL histwrite_phy(o_kh ,kh ) 786 CALL histwrite_phy(o_kh_x ,kh_x ) 787 CALL histwrite_phy(o_kh_w ,kh_w ) 788 ENDIF ! (iflag_pbl_split>=1) 756 789 CALL histwrite_phy(o_ale, ale) 757 790 CALL histwrite_phy(o_alp, alp)
Note: See TracChangeset
for help on using the changeset viewer.