Changeset 2344 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Aug 21, 2015, 9:23:13 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r2333 r2344 25 25 26 26 USE dimphy, only: klon, klev, klevp1, nslay 27 USE control_mod, only: day_step, iphysiq 27 USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat 28 USE time_phylmdz_mod, only: day_step_phy, start_time, itau_phy 28 29 USE phys_output_ctrlout_mod, only: o_phis, o_aire, is_ter, is_lic, is_oce, & 29 30 is_ave, is_sic, o_contfracATM, o_contfracOR, & … … 268 269 269 270 270 INCLUDE "temps.h"271 271 INCLUDE "clesphys.h" 272 272 INCLUDE "thermcell.h" 273 273 INCLUDE "compbl.h" 274 274 INCLUDE "YOMCST.h" 275 INCLUDE "dimensions.h"276 275 277 276 ! Input … … 288 287 REAL, DIMENSION(klon, klev+1) :: paprs 289 288 REAL, DIMENSION(klon,klev,nqtot) :: qx, d_qx 290 REAL, DIMENSION(klon, llm) :: zmasse289 REAL, DIMENSION(klon, klev) :: zmasse 291 290 LOGICAL :: flag_aerosol_strat 292 291 INTEGER :: flag_aerosol … … 295 294 296 295 ! Local 297 INTEGER, PARAMETER :: jjmp1=jjm+1-1/jjm298 296 INTEGER :: itau_w 299 297 INTEGER :: i, iinit, iinitend=1, iff, iq, nsrf, k, ll, naero … … 302 300 REAL, DIMENSION (klon,klev+1) :: zx_tmp_fi3d1 303 301 CHARACTER (LEN=4) :: bb2 304 INTEGER, DIMENSION( iim*jjmp1) :: ndex2d305 INTEGER, DIMENSION( iim*jjmp1*klev) :: ndex3d302 INTEGER, DIMENSION(nbp_lon*nbp_lat) :: ndex2d 303 INTEGER, DIMENSION(nbp_lon*nbp_lat*klev) :: ndex3d 306 304 REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 307 305 ! REAL, PARAMETER :: missing_val=nf90_fill_real … … 312 310 313 311 ! On calcul le nouveau tau: 314 itau_w = itau_phy + itap + start_time * day_step / iphysiq312 itau_w = itau_phy + itap + start_time * day_step_phy 315 313 ! On le donne à iophy pour que les histwrite y aient accès: 316 314 CALL set_itau_iophy(itau_w)
Note: See TracChangeset
for help on using the changeset viewer.