Changeset 2665 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Oct 12, 2016, 2:53:20 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r2656 r2665 19 19 ok_ade, ok_aie, ivap, iliq, isol, new_aod, ok_sync, & 20 20 ptconv, read_climoz, clevSTD, ptconvth, & 21 d_ t, qx, d_qx, zmasse, flag_aerosol, flag_aerosol_strat, ok_cdnc)21 d_u, d_t, qx, d_qx, zmasse, flag_aerosol, flag_aerosol_strat, ok_cdnc) 22 22 23 23 ! This subroutine does the actual writing of diagnostics that were … … 122 122 o_zfull, o_zhalf, o_rneb, o_rnebjn, o_rnebcon, & 123 123 o_rnebls, o_rhum, o_ozone, o_ozone_light, & 124 o_d tphy, o_dqphy, o_dqphy2d, o_dqlphy, o_dqlphy2d, &124 o_duphy, o_dtphy, o_dqphy, o_dqphy2d, o_dqlphy, o_dqlphy2d, & 125 125 o_dqsphy, o_dqsphy2d, o_albe_srf, o_z0m_srf, o_z0h_srf, & 126 126 o_ages_srf, o_snow_srf, o_alb1, o_alb2, o_tke, & … … 336 336 REAL, DIMENSION(klon,nlevSTD) :: zx_tmp_fi3d_STD 337 337 REAL, DIMENSION(klon) :: pphis 338 REAL, DIMENSION(klon, klev) :: pplay, d_ t338 REAL, DIMENSION(klon, klev) :: pplay, d_u, d_t 339 339 REAL, DIMENSION(klon, klev+1) :: paprs 340 340 REAL, DIMENSION(klon,klev,nqtot) :: qx, d_qx … … 1214 1214 ENDIF 1215 1215 1216 CALL histwrite_phy(o_duphy, d_u) 1217 1216 1218 CALL histwrite_phy(o_dtphy, d_t) 1217 1219
Note: See TracChangeset
for help on using the changeset viewer.