Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/rotatf_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/rotatf_p.F (modified) (3 diffs)

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

@@ -32 +32 @@
       ije=ij_end
       if(pole_sud) ije=ij_end-iip1
-      
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
       DO  10 l = 1,klevel
 c
@@ -48 +49 @@
 c
   10  CONTINUE
-
+c$OMP END DO NOWAIT
         jjb=jj_begin
         jje=jj_end
         if (pole_sud) jje=jj_end-1
         CALL filtreg_p( rot, jjb,jje,jjm, klevel, 2, 2, .FALSE., 1 )
-      
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
         DO l = 1, klevel
           DO ij = ijb, ije
@@ -59 +61 @@
           ENDDO
         ENDDO
+c$OMP END DO NOWAIT
 c
 c