- Timestamp:
- Nov 18, 2019, 4:48:48 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_write_mod.F90
r3458 r3601 39 39 o_q2m, o_ustar, o_u10m, o_v10m, & 40 40 o_wind10m, o_wind10max, o_gusts, o_sicf, & 41 o_psol, o_mass, o_qsurf, o_qsol, &41 o_psol, o_mass, o_qsurf, o_qsol, o_tsoil_deep_land, & 42 42 o_precip, o_rain_fall, o_rain_con, o_ndayrain, o_plul, o_pluc, o_plun, & 43 43 o_snow, o_msnow, o_fsnow, o_evap, o_ep,o_epmax_diag, & ! epmax_cape … … 353 353 USE ocean_slab_mod, ONLY: nslay, tslab, slab_bilg, tice, seaice, & 354 354 slab_ekman,slab_hdiff,slab_gm,dt_ekman, dt_hdiff, dt_gm, dt_qflux 355 USE pbl_surface_mod, ONLY: snow 355 USE pbl_surface_mod, ONLY: snow, ftsoil 356 356 USE indice_sol_mod, ONLY: nbsrf 357 357 USE infotrac_phy, ONLY: nqtot, nqo, type_trac, tname, niadv … … 384 384 INCLUDE "compbl.h" 385 385 INCLUDE "YOMCST.h" 386 INCLUDE "dimsoil.h" 386 387 387 388 ! Input … … 679 680 IF (.NOT. ok_veget) THEN 680 681 CALL histwrite_phy(o_qsol, qsol) 682 CALL histwrite_phy(o_tsoil_deep_land, ftsoil(:, nsoilmx, is_ter)) 681 683 ENDIF 682 684
Note: See TracChangeset
for help on using the changeset viewer.