Changeset 1864 for LMDZ5/branches/testing/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Sep 11, 2013, 11:45:01 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Création d'une nouvelle testing:

merge des modifications du trunk entre r1796 et r1860

---

New testing version

merged modifications between r1796 and r1860 from the trunk

i.e.
svn merge -r1796:1860 ​http://svn.lmd.jussieu.fr/LMDZ/LMDZ5/trunk

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_output_var_mod.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/phys_output_var_mod.F90

@@ -25 +25 @@
 
 ! ug Plein de variables venues de phys_output_mod
-      INTEGER, PARAMETER                           :: nfiles = 6
+      INTEGER, PARAMETER                           :: nfiles = 9
       LOGICAL, DIMENSION(nfiles), SAVE             :: clef_files
       LOGICAL, DIMENSION(nfiles), SAVE             :: clef_stations
@@ -41 +41 @@
       CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: type_ecri_files, phys_out_filetypes
 !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes)
+    CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: phys_out_filenames
+!$OMP THREADPRIVATE(phys_out_filenames)
 
  ! swaero_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
@@ -49 +51 @@
       INTEGER, SAVE:: levmax(nfiles)
 !$OMP THREADPRIVATE(levmin, levmax)
+
+      REAL, SAVE                :: zdtime_moy
+!$OMP THREADPRIVATE(zdtime_moy)
+
+      LOGICAL, SAVE :: vars_defined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
 
   TYPE ctrl_out