Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/laplacien_gam_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_gam_p.F (modified) (2 diffs)

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

@@ -31 +31 @@
 c    ......................................................
 
-      EXTERNAL  filtreg
-      EXTERNAL  SCOPY, grad, divergst
       INTEGER :: ijb,ije
-      
+      INTEGER :: l      
 c
 c
@@ -49 +47 @@
       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
+
 c
       CALL   grad_p ( klevel, divgra, ghx, ghy )