Changeset 1828 for LMDZ5/trunk/libf/phylmd/iophy.F90

Timestamp:

Aug 6, 2013, 6:06:40 PM (11 years ago)

Author:

idelkadi

Message:

Gestion des fichiers de sorties sur les niveaux de pression NMC (hist*NMC.nc) via le meme mecanisme utilise pour les fichiers histoires (phys_output_mod, ...)
Ces sorties sont ainsi controles par les memes flags : phys_out_filekeys, phys_out_filenames, phys_out_filetimesteps, phys_out_filelevels, ...
(exemple dans config.def : phys_out_filenames=histmth histday histhf histins histLES histstn histmthNMC histdayNMC histhfNMC)

File:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -907 +907 @@
     INTEGER, INTENT(IN), OPTIONAL :: STD_iff ! ug RUSTINE POUR LES STD LEVS.....
       
-    INTEGER :: iff
+    INTEGER :: iff, iff_beg, iff_end
 
     REAL,DIMENSION(klon_mpi,SIZE(field,2)) :: buffer_omp
@@ -917 +917 @@
   IF (prt_level >= 9) write(lunout,*)'Begin histrwrite3d ',var%name
 
+! ug RUSTINE POUR LES STD LEVS.....
+      IF (PRESENT(STD_iff)) THEN
+            iff_beg = STD_iff
+            iff_end = STD_iff
+      ELSE
+            iff_beg = 1
+            iff_end = nfiles
+      END IF
+
   ! On regarde si on est dans la phase de définition ou d'écriture:
   IF(.NOT.vars_defined) THEN
       !Si phase de définition.... on définit
 !$OMP MASTER
-      DO iff=1, nfiles
+      DO iff=iff_beg, iff_end
         IF (clef_files(iff)) THEN
           CALL histdef3d(iff, var)
@@ -939 +948 @@
 
 ! BOUCLE SUR LES FICHIERS
-      DO iff=1, nfiles
+     DO iff=iff_beg, iff_end
             IF (var%flag(iff) <= lev_files(iff) .AND. clef_files(iff)) THEN
                 IF (.NOT.clef_stations(iff)) THEN