Changeset 1913

Timestamp:

Dec 6, 2013, 12:41:51 PM (10 years ago)

Author:

musat

Message:

2 oublis
IM

Location:

LMDZ5/trunk/libf/phylmd

Files:

• conf_phys_m.F90 (modified) (1 diff)
• physiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -1336 +1336 @@
 !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.
+!Config Def  = 2592000., 86400., 21600. (1mois, 1jour, 6h) 
+!Config Help =
+!
+  freq_outNMC_omp(1) = mth_len
+  freq_outNMC_omp(2) = 1.
+  freq_outNMC_omp(3) = 1./4.
   call getin('freq_outNMC',freq_outNMC_omp)
 !

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -493 +493 @@
   REAL un_jour
   PARAMETER(un_jour=86400.)
-  INTEGER itapm1
-  SAVE itapm1
+  INTEGER itapm1 !pas de temps de la physique du(es) mois precedents
+  SAVE itapm1    !mis a jour le dernier pas de temps du mois en cours
+  !$OMP THREADPRIVATE(itapm1)
   !======================================================================
   !