Changeset 2010 for LMDZ5/trunk/libf/phylmd/rrtm/yomoml.F90

Timestamp:

Apr 10, 2014, 11:06:10 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour OpenMP

---

OpenMP modifications

File:

• LMDZ5/trunk/libf/phylmd/rrtm/yomoml.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/yomoml.F90

@@ -46 +46 @@
 
 LOGICAL :: OML_DEBUG = .FALSE.
+!$OMP THREADPRIVATE(OML_DEBUG)
 
 PUBLIC OML_WAIT_EVENT, OML_SET_EVENT, OML_INCR_EVENT, &
@@ -62 +63 @@
 !-- Note: Still JPIM !!
 INTEGER(KIND=JPIM) :: M_EVENT = 0
+!$OMP THREADPRIVATE(M_EVENT)
 
 !-- Note: OML_LOCK_KIND, not JPIM !!
 INTEGER(KIND=OML_LOCK_KIND) :: M_LOCK(2) = (/-1, -1/)
+!$OMP THREADPRIVATE(M_LOCK)
 
 CONTAINS