Changeset 1348 for trunk/LMDZ.COMMON

Timestamp:

Sep 24, 2014, 5:41:01 PM (10 years ago)

Author:

milmd

Message:

LMDZ.GENERIC. LMDZ.COMMON. OpenMP directives: correction of bugs mentioned in 1315 commit.

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/addfi_p.F (modified) (11 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/addfi_p.F

@@ -96 +96 @@
          ENDDO
       ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
 
       if (pole_nord) then
@@ -110 +110 @@
          ENDDO
        ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
       endif
 
@@ -125 +125 @@
          ENDDO
        ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
       endif
 c
@@ -136 +136 @@
         ENDDO
       ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
 !***********************
 
@@ -150 +150 @@
          ENDDO
       ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
 
       if (pole_nord) ijb=ij_begin
@@ -160 +160 @@
          ENDDO
       ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
 
 c
@@ -180 +180 @@
             ENDDO
          ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
        ENDDO
 
@@ -191 +191 @@
             ENDDO
          ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
        ENDDO
       else
@@ -203 +203 @@
             ENDDO
          ENDDO
-c$OMP END DO NOWAIT
+c$OMP END DO
        ENDDO
       endif ! of if (planet_type=="earth")
@@ -250 +250 @@
             ENDDO
           ENDDO
-c$OMP END DO NOWAIT       
+c$OMP END DO
         ENDDO
       endif
@@ -267 +267 @@
             ENDDO
           ENDDO
-c$OMP END DO NOWAIT       
+c$OMP END DO
         ENDDO
       endif