Changeset 1865 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Sep 13, 2013, 10:26:46 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Inclusion de la bibliothèque SISVAT/MAR à LMDZ pour le traitement des surfaces
"land ice"

13. Menegoz

---

Integration of the SISVAT/MAR library to LMDZ to model the land ice surfaces

13. Menegoz

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -31 +31 @@
     USE phys_state_var_mod
     USE phys_local_var_mod
+    USE phys_output_var_mod
     USE indice_sol_mod
     USE infotrac
     USE comgeomphy
-    USE surface_data,     ONLY : type_ocean, ok_veget
+    USE surface_data,     ONLY : type_ocean, ok_veget, ok_snow
     USE aero_mod
     USE ioipsl
@@ -296 +297 @@
 ENDIF
       CALL histwrite_phy(o_tauy, zx_tmp_fi2d)
+
+      IF (ok_snow) THEN
+         CALL histwrite_phy(o_snowsrf, zxsnow)
+         CALL histwrite_phy(o_qsnow, qsnow)
+         CALL histwrite_phy(o_snowhgt,snowhgt)
+         CALL histwrite_phy(o_toice,to_ice)
+         CALL histwrite_phy(o_sissnow,sissnow)
+         CALL histwrite_phy(o_runoff,runoff)
+         CALL histwrite_phy(o_albslw3,albsol3_lic)
+      ENDIF