Changeset 1865 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Sep 13, 2013, 10:26:46 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r1852 r1865 31 31 USE phys_state_var_mod 32 32 USE phys_local_var_mod 33 USE phys_output_var_mod 33 34 USE indice_sol_mod 34 35 USE infotrac 35 36 USE comgeomphy 36 USE surface_data, ONLY : type_ocean, ok_veget 37 USE surface_data, ONLY : type_ocean, ok_veget, ok_snow 37 38 USE aero_mod 38 39 USE ioipsl … … 296 297 ENDIF 297 298 CALL histwrite_phy(o_tauy, zx_tmp_fi2d) 299 300 IF (ok_snow) THEN 301 CALL histwrite_phy(o_snowsrf, zxsnow) 302 CALL histwrite_phy(o_qsnow, qsnow) 303 CALL histwrite_phy(o_snowhgt,snowhgt) 304 CALL histwrite_phy(o_toice,to_ice) 305 CALL histwrite_phy(o_sissnow,sissnow) 306 CALL histwrite_phy(o_runoff,runoff) 307 CALL histwrite_phy(o_albslw3,albsol3_lic) 308 ENDIF 298 309 299 310
Note: See TracChangeset
for help on using the changeset viewer.