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

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

@@ -21 +21 @@
       INTEGER klevel
       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
+      INTEGER :: l
 c
 c    ............     variables  locales      ..............
@@ -27 +28 @@
 c    .......................................................
 
-      EXTERNAL  SCOPY, grad, divergf, filtreg
       
       INTEGER :: ijb,ije,jjb,jje
@@ -37 +37 @@
       if (pole_nord) ijb=ij_begin
       if (pole_sud ) ije=ij_end
-      
-      divgra(ijb:ije,klevel)=teta(ijb:ije,klevel)
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,klevel      
+        divgra(ijb:ije,l)=teta(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
       
       jjb=jj_begin-1