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

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

@@ -21 +21 @@
 Champs 3D
       jd=jjp1-jjmax
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
       do l=1,llm
       j1=1+jd
@@ -72 +73 @@
       enddo
       enddo
-
+c$OMP END DO NOWAIT
       return
       end