Changeset 987 for LMDZ4/trunk/libf/phylmd/thermcell.F

Timestamp:

Jul 30, 2008, 5:57:45 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Du nettoyage sur le parallelisme, inclusion de nouvelles interfaces pour OPA9
et ORCHIDEE YM
LF

File:

• LMDZ4/trunk/libf/phylmd/thermcell.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/thermcell.F

@@ -52 +52 @@
       save idetr
       data idetr/3/
-
+c$OMP THREADPRIVATE(idetr)
 c   local:
 c   ------
@@ -94 +94 @@
       data isplit/0/
       save isplit
+c$OMP THREADPRIVATE(isplit)
 
       logical sorties
@@ -125 +126 @@
       data first /.false./
       save first
+c$OMP THREADPRIVATE(first)
 cRC
 
@@ -137 +139 @@
       save ncorrec
       data ncorrec/0/
+c$OMP THREADPRIVATE(ncorrec)
       
 c
@@ -1131 +1134 @@
 c$OMP THREADPRIVATE(zmax0_sec)
       logical, save :: first = .true.
+c$OMP THREADPRIVATE(first)
 
       if (first) then