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

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

@@ -1 +1 @@
       SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
       USE dimphy
+      USE PARALLEL
       IMPLICIT NONE
 c=======================================================================
@@ -14 +15 @@
       REAL pfi(ngrid,nfield)
 
-      INTEGER i,j,ig
+      INTEGER i,j,ig,l
 
 c-----------------------------------------------------------------------
@@ -23 +24 @@
 c   traitement des poles
 c   traitement des point normaux
-
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,nfield    
        DO ig=1,klon
          i=Liste_i(ig)
          j=Liste_j(ig)
-         pfi(ig,1:nfield)=pdyn(i,j,1:nfield)
+         pfi(ig,l)=pdyn(i,j,l)
        ENDDO
-
-
+      ENDDO
+c$OMP END DO NOWAIT
       RETURN
       END