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

Timestamp:

Jul 19, 2013, 4:32:37 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Unification de la définition et de l'écriture des variables dans la routine histwrite_phy (le premier appel définit les variables, les suivants écrivent). Nettoyage de phys_output_mod, déplacement des histdef_23d dans iophy. Ajout de prints de débogage dans histwrite_phy.
UG
...................................................

Unification of definition and writing of vars in histwrite_phy routine (the first call defines vars, the others do the writing). Cleaning up of phys_output_mod, moving of histdef23_d routines into iophy. Adding debugging prints to histwrite_phy.
UG

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -8 +8 @@
 ! Author: Ulysse GERARD (effective implementation)
 
-   USE phys_output_var_mod
 
    CONTAINS 
@@ -91 +90 @@
           ENDIF
       END DO
+
+    ELSE
+    vars_defined = .TRUE.
     ENDIF
 
       
-    vars_defined = .TRUE.
+
 
     END SUBROUTINE phys_output_write