Changeset 970 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

Jun 12, 2008, 11:38:46 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Corrections petits bugs divers
LF

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -592 +592 @@
       REAL ment(klon,klev,klev),sij(klon,klev,klev)
       REAL dd_t(klon,klev),dd_q(klon,klev)
-      real alp_bl_prescr
-      save alp_bl_prescr
-      real ale_bl_prescr
-      save ale_bl_prescr
+
+      real, save :: alp_bl_prescr=0.
+      real, save :: ale_bl_prescr=0.
+c$OMP THREADPRIVATE(alp_bl_prescr,ale_bl_prescr)
+
       real ale_wake(klon)
       real alp_wake(klon)