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

Timestamp:

Sep 5, 2014, 5:42:24 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Suite (et fin?) des modifications pour permettre un controle 'tout xml'
des fichiers de sorties XIOS.
Un nouveau paramètre logique est introduit, ok_all_xml, false par défaut, et lu
dans le run.def qui permet de faire du 'tout xml'

---

Follow-up modifications to ensure total xlm control over the output files
from XIOS.
A new logical parameter, ok_all_wml, is introduced. False by default, it is
read from the run.def file and, if true, will give over control to the
XIOS xml files

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -240 +240 @@
     USE phys_cal_mod, only : mth_len
 
+
     IMPLICIT NONE
+
 
     INCLUDE "temps.h"
@@ -1293 +1295 @@
        ENDDO !nfiles
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!       IF (nqtot.GE.3) THEN
-!          DO iq=3,nqtot
-          IF (nqtot.GE.nqo+1) THEN
+        IF (nqtot.GE.nqo+1) THEN
             DO iq=nqo+1,nqtot
+
              CALL histwrite_phy(o_trac(iq-nqo), qx(:,:,iq))
              CALL histwrite_phy(o_dtr_vdf(iq-nqo),d_tr_cl(:,:,iq-nqo))