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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -155 +155 @@
   Integer, save :: lev_histins_omp, lev_histLES_omp 
   INTEGER, SAVE :: lev_histdayNMC_omp
+  INTEGER, SAVE :: levout_histNMC_omp(3)
   LOGICAL, SAVE :: ok_histNMC_omp(3)
   REAL, SAVE :: freq_outNMC_omp(3), freq_calNMC_omp(3)
@@ -1267 +1268 @@
   lev_histLES_omp = 1
   call getin('lev_histLES',lev_histLES_omp)
-!
+! 
 !Config Key  = lev_histdayNMC
 !Config Desc =
@@ -1275 +1276 @@
   lev_histdayNMC_omp = 8
   call getin('lev_histdayNMC',lev_histdayNMC_omp)
+!
+!Config Key  = levout_histNMC
+!Config Desc =
+!Config Def  = 5
+!Config Help =
+!
+  levout_histNMC_omp(1) = 5
+  levout_histNMC_omp(2) = 5
+  levout_histNMC_omp(3) = 5
+  call getin('levout_histNMC',levout_histNMC_omp)
 !
 !histNMC BEG
@@ -1290 +1301 @@
 !
 !Config Key  = freq_outNMC
-!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) = 2592000.
-  freq_outNMC_omp(1) = mth_len*86400.
-  freq_outNMC_omp(2) = 86400.
-  freq_outNMC_omp(3) = 21600.
+!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
   call getin('freq_outNMC',freq_outNMC_omp)
 !
@@ -1702 +1712 @@
     lev_histLES = lev_histLES_omp
     lev_histdayNMC = lev_histdayNMC_omp
+    levout_histNMC = levout_histNMC_omp
     ok_histNMC(:) = ok_histNMC_omp(:)
     freq_outNMC(:) = freq_outNMC_omp(:)
@@ -1925 +1936 @@
   write(lunout,*)' lev_histLES = ',lev_histLES
   write(lunout,*)' lev_histdayNMC = ',lev_histdayNMC
+  write(lunout,*)' levout_histNMC = ',levout_histNMC
   write(lunout,*)' ok_histNMC = ',ok_histNMC
   write(lunout,*)' freq_outNMC = ',freq_outNMC