Changeset 2114 for LMDZ5/trunk/libf/phylmd/phys_output_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_mod.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -236 +236 @@
     type_ecri_files(:)=type_ecri(:)
 
+!    if (ok_all_xml) phys_out_filelevels = 999
+
     WRITE(lunout,*)'phys_out_lonmin=',phys_out_lonmin
     WRITE(lunout,*)'phys_out_lonmax=',phys_out_lonmax
@@ -305 +307 @@
        zoutm(iff) = ecrit_files(iff) ! Frequence ou l on ecrit en seconde
 
-    IF (clef_files(iff)) THEN
 
 #ifdef CPP_XIOS
 !!! Ouverture de chaque fichier XIOS !!!!!!!!!!!
-    if (prt_level >= 10) then
-      print*,'phys_output_open: call wxios_add_file with phys_out_filenames(iff)=',trim(phys_out_filenames(iff))                                                                        
-    endif
-    CALL wxios_add_file(phys_out_filenames(iff),chtimestep(iff),lev_files(iff))  
+    IF (.not. ok_all_xml) then
+      if (prt_level >= 10) then
+        print*,'phys_output_open: call wxios_add_file with phys_out_filenames(iff)=',trim(phys_out_filenames(iff))    
+      endif
+      CALL wxios_add_file(phys_out_filenames(iff),chtimestep(iff),lev_files(iff))  
+    ENDIF
 
 !!! Declaration des axes verticaux de chaque fichier:
@@ -334 +337 @@
 #endif 
 
+        IF (clef_files(iff)) THEN
 !!!!!!!!!!!!!!!!! Traitement dans le cas ou l'on veut stocker sur un domaine limite !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -404 +408 @@
 #endif
 
+     ENDIF ! clef_files
+
 !CR: ajout d'une variable eau
 !      IF (nqtot>=3) THEN
+
        IF (nqtot>=nqo+1) THEN
 !            DO iq=3,nqtot  
@@ -413 +420 @@
                            tname(iiq),'Tracer '//ttext(iiq), "-",  &
                            (/ '', '', '', '', '', '', '', '', '' /))
-
-            o_dtr_vdf(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_vdf(iq-nqo) = ctrl_out((/ 4, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                               'd'//trim(tname(iq))//'_vdf',  &
                               'Tendance tracer '//ttext(iiq), "-" , &
@@ -491 +497 @@
       ENDIF
 
-     ENDIF ! clef_files
 
    ENDDO !  iff