Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/addfi_p.F

Timestamp:

Sep 20, 2006, 12:12:39 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nouvelles versions de la dynamique YM
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/addfi_p.F (modified) (13 diffs)

LMDZ4/branches/V3_test/libf/dyn3dpar/addfi_p.F

@@ -82 +82 @@
       ije=ij_end
       
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
       DO k = 1,llm
          DO j = ijb,ije
@@ -87 +88 @@
          ENDDO
       ENDDO
+c$OMP END DO NOWAIT
 
       if (pole_nord) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
         DO  k    = 1, llm
          DO  ij   = 1, iim
@@ -99 +102 @@
          ENDDO
        ENDDO
+c$OMP END DO NOWAIT
       endif
 
       if (pole_sud) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
         DO  k    = 1, llm
          DO  ij   = 1, iim
@@ -112 +117 @@
          ENDDO
        ENDDO
+c$OMP END DO NOWAIT
       endif
 c
@@ -119 +125 @@
       if (pole_nord) ijb=ij_begin+iip1
       if (pole_sud)  ije=ij_end-iip1
-      
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
       DO k = 1,llm
          DO j = ijb,ije
@@ -125 +132 @@
          ENDDO
       ENDDO
+c$OMP END DO NOWAIT
 
       if (pole_nord) ijb=ij_begin
 
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
       DO k = 1,llm
          DO j = ijb,ije
@@ -133 +142 @@
          ENDDO
       ENDDO
+c$OMP END DO NOWAIT
 
 c
       if (pole_sud)  ije=ij_end
-
+c$OMP MASTER
       DO j = ijb,ije
          pps(j) = pps(j) + pdpfi(j) * pdt
       ENDDO
- 
+c$OMP END MASTER
  
       DO iq = 1, 2
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
          DO k = 1,llm
             DO j = ijb,ije
@@ -149 +160 @@
             ENDDO
          ENDDO
-      ENDDO
-
+c$OMP END DO NOWAIT
+      ENDDO
 
       DO iq = 3, nq
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
          DO k = 1,llm
             DO j = ijb,ije
@@ -159 +171 @@
             ENDDO
          ENDDO
-      ENDDO
-
+c$OMP END DO NOWAIT
+      ENDDO
+
+c$OMP MASTER
       if (pole_nord) then
       
@@ -188 +202 @@
       
       endif
+c$OMP END MASTER
 
       if (pole_nord) then
         DO iq = 1, nq
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
           DO  k    = 1, llm
             DO  ij   = 1, iim
@@ -201 +217 @@
             ENDDO
           ENDDO
+c$OMP END DO NOWAIT       
         ENDDO
       endif
@@ -206 +223 @@
       if (pole_sud) then
         DO iq = 1, nq
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
           DO  k    = 1, llm
             DO  ij   = 1, iim
@@ -216 +234 @@
             ENDDO
           ENDDO
+c$OMP END DO NOWAIT       
         ENDDO
       endif