Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/tourpot_p.F

Timestamp:

Jun 4, 2007, 4:13:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/dyn3dpar/tourpot_p.F (modified) (5 diffs)

LMDZ4/trunk/libf/dyn3dpar/tourpot_p.F

@@ -31 +31 @@
       INTEGER l, ij ,ije,ijb,jje,jjb
 
-      EXTERNAL filtreg_p
-
 
       ijb=ij_begin-iip1
@@ -45 +43 @@
 
 c    ........  Calcul du rotationnel du vent V  puis filtrage  ........
-
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
       DO 5 l = 1,llm
 
@@ -65 +63 @@
 
    5  CONTINUE
-
+c$OMP END DO NOWAIT
       jjb=jj_begin-1
       jje=jj_end
@@ -73 +71 @@
       CALL  filtreg_p( rot, jjb,jje,jjm, llm, 2, 1, .FALSE., 1 )
 
-     
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
       DO 10 l = 1, llm
       
@@ -91 +89 @@
 
   10  CONTINUE
-
+c$OMP END DO NOWAIT
       RETURN
       END