Changeset 1913 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

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

Author:

musat

Message:

2 oublis
IM

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (1 diff)

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)
   !======================================================================
   !