Changeset 1573 for LMDZ5/trunk/libf/phylmd/cv3p_mixing.F

Timestamp:

Sep 13, 2011, 5:34:02 PM (13 years ago)

Author:

jghattas

Message:

• Added missing attribute SAVE.
• Changed FORALL into DO loop because some OpenMP compilers do not permet FORALL within the body of an OpenMP SINGLE directive. (Titane)

/Martial Mancip

File:

• LMDZ5/trunk/libf/phylmd/cv3p_mixing.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cv3p_mixing.F

@@ -81 +81 @@
       Rmix(F) = qqa1*Rmix1(F) + qqa2*Rmix2(F)
 C
-      INTEGER ifrst
+      INTEGER, SAVE :: ifrst
       DATA ifrst/0/
 c$OMP THREADPRIVATE(ifrst)