Changeset 3918

Timestamp:

Feb 24, 2016, 6:26:44 PM (9 years ago)

Author:

ymipsl

Message:

remove xios write control.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyetat0.F90 (modified) (2 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyetat0.F90

@@ -30 +30 @@
   USE create_etat0_unstruct_mod
   USE wxios
-
+  USE iophy
+  
   IMPLICIT none
   !======================================================================
@@ -886 +887 @@
   CALL fonte_neige_init(run_off_lic_0)
 
+
+!  CALL histwrite_phy('zmea_out',zmea)
+!  CALL histwrite_phy('zstd_out',zstd)
+!  CALL histwrite_phy('zsig_out',zsig)
+!  CALL histwrite_phy('zgam_out',zgam)
+!  CALL histwrite_phy('zthe_out',zthe)
+!  CALL histwrite_phy('zval_out',zval)
+!  CALL histwrite_phy('zpic_out',zpic)
+  
+  
+  
 END SUBROUTINE phyetat0