Changeset 1374 for LMDZ4/trunk/libf/phylmd/conf_phys.F90

Timestamp:

May 4, 2010, 2:46:58 PM (14 years ago)

Author:

musat

Message:

Add logical flags ok_histNMC(3) to manage output of the
standard pressure files hist*NMC.nc
IM

File:

• LMDZ4/trunk/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -139 +139 @@
   Integer, save :: lev_histins_omp, lev_histLES_omp 
   INTEGER, SAVE :: lev_histdayNMC_omp
+  LOGICAL, SAVE :: ok_histNMC_omp(3)
   REAL, SAVE :: freq_outNMC_omp(3), freq_calNMC_omp(3)
   CHARACTER*4, SAVE :: type_run_omp
@@ -1089 +1090 @@
 !
 !histNMC BEG
+!Config Key  = ok_histNMC
+!Config Desc = ok_histNMC(1) = frequence de sortie fichiers histmthNMC
+!Config Desc = ok_histNMC(2) = frequence de sortie fichiers histdayNMC
+!Config Desc = ok_histNMC(3) = frequence de sortie fichiers histhfNMC
+!Config Def  = n, n, n
+!Config Help =
+!
+  ok_histNMC_omp(1) = .false.
+  ok_histNMC_omp(2) = .false.
+  ok_histNMC_omp(3) = .false.
+  call getin('ok_histNMC',ok_histNMC_omp)
+!
 !Config Key  = freq_outNMC
 !Config Desc = freq_outNMC(1) = frequence de sortie fichiers histmthNMC
@@ -1476 +1489 @@
     lev_histLES = lev_histLES_omp
     lev_histdayNMC = lev_histdayNMC_omp
+    ok_histNMC(:) = ok_histNMC_omp(:)
     freq_outNMC(:) = freq_outNMC_omp(:)
     freq_calNMC(:) = freq_calNMC_omp(:)
@@ -1663 +1677 @@
   write(numout,*)' lev_histLES = ',lev_histLES
   write(numout,*)' lev_histdayNMC = ',lev_histdayNMC
+  write(numout,*)' ok_histNMC = ',ok_histNMC
   write(numout,*)' freq_outNMC = ',freq_outNMC
   write(numout,*)' freq_calNMC = ',freq_calNMC