Changeset 1843 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Aug 21, 2013, 12:01:48 PM (11 years ago)

Author:

idelkadi

Message:

Correction sur la frequence de sortie des fichiers "NMC" (Niveaux standards de pression)

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -110 +110 @@
     INTEGER, DIMENSION(nfiles)            :: phys_out_levmin, phys_out_levmax
     INTEGER, DIMENSION(nfiles)            :: phys_out_filelevels
-    CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep   = (/ 'DefFreq', 'DefFreq','DefFreq', 'DefFreq', &
-                                                        'DefFreq', 'DefFreq', 'DefFreq','DefFreq', 'DefFreq' /)
+    CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep   = (/ '1mth', '1mth', '1mth', '1mth', '1mth', &
+                                                               '1mth', '1mth', '1mth', '1mth' /)
     LOGICAL, DIMENSION(nfiles)            :: phys_out_filekeys
     LOGICAL, DIMENSION(nfiles)            :: phys_out_filestations
@@ -205 +205 @@
     ecrit_files(5) = ecrit_LES
     ecrit_files(6) = ecrit_ins
-    ecrit_files(7) = freq_outNMC(1)
-    ecrit_files(8) = freq_outNMC(2)
-    ecrit_files(9) = freq_outNMC(3)
+    ecrit_files(7) = freq_outNMC(1)/86400.
+    ecrit_files(8) = freq_outNMC(2)/86400.
+    ecrit_files(9) = freq_outNMC(3)/86400.
 
     !! Lectures des parametres de sorties dans physiq.def
@@ -467 +467 @@
     ecrit_LES = ecrit_files(5)
     ecrit_ins = ecrit_files(6)
-    freq_outNMC(1) = ecrit_files(7)
-    freq_outNMC(2) = ecrit_files(8)
-    freq_outNMC(3) = ecrit_files(9)
+    freq_outNMC(1) = ecrit_files(7)*86400.
+    freq_outNMC(2) = ecrit_files(8)*86400.
+    freq_outNMC(3) = ecrit_files(9)*86400.
 
     WRITE(lunout,*)'swaero_diag=',swaero_diag