Changeset 1117 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/vlspltgen_p.F

Timestamp:

Mar 11, 2009, 1:47:42 PM (15 years ago)

Author:

yann meurdesoif

Message:

Correction pour bon fonctionnement en OpenMP suite à la mise à jour des modifications sur le nombre de traceur spécifié dynamiquement
YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/vlspltgen_p.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/vlspltgen_p.F

@@ -69 +69 @@
       INTEGER ijb,ije,iq
       LOGICAL, SAVE :: firstcall=.TRUE.
-
+!$OMP THREADPRIVATE(firstcall)
       type(request) :: MyRequest1
       type(request) :: MyRequest2
@@ -88 +88 @@
 
 c Allocate variables depending on dynamic variable nqtot
+
          IF (firstcall) THEN
             firstcall=.FALSE.
+!$OMP MASTER
             ALLOCATE(zm(ip1jmp1,llm,nqtot))
             ALLOCATE(zq(ip1jmp1,llm,nqtot))
+!$OMP END MASTER
+!$OMP BARRIER
          END IF
-
 c-- Calcul de Qsat en chaque point
 c-- approximation: au milieu des couches play(l)=(p(l)+p(l+1))/2