Changeset 1843 for LMDZ5/trunk

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)

Location:

LMDZ5/trunk/libf/phylmd

Files:

• conf_phys_m.F90 (modified) (1 diff)
• phys_output_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -1301 +1301 @@
 !
 !Config Key  = freq_outNMC
-!Config Desc = freq_outNMC(1) = frequence en jour de sortie fichiers histmthNMC
-!Config Desc = freq_outNMC(2) = frequence en jour de sortie fichiers histdayNMC
-!Config Desc = freq_outNMC(3) = frequence en jour de sortie fichiers histhfNMC
-!Config Def  = 30., 1., 0.25
-!Config Help =
-!
-  freq_outNMC_omp(1) = mth_len
-  freq_outNMC_omp(2) = 1.
-  freq_outNMC_omp(3) = 0.25
+!Config Desc = freq_outNMC(1) = frequence de sortie fichiers histmthNMC
+!Config Desc = freq_outNMC(2) = frequence de sortie fichiers histdayNMC
+!Config Desc = freq_outNMC(3) = frequence de sortie fichiers histhfNMC
+!Config Def  = 2592000., 86400., 21600.
+!Config Help =
+!
+  freq_outNMC_omp(1) = mth_len*86400.
+  freq_outNMC_omp(2) = 86400.
+  freq_outNMC_omp(3) = 21600.
   call getin('freq_outNMC',freq_outNMC_omp)
 !

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