Changeset 985 for LMDZ4/trunk/libf/dyn3dpar/divgrad2_p.F

Timestamp:

Jul 30, 2008, 5:50:03 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Mise a jour de dyn3dpar par rapport a dyn3d, inclusion OpenMP et filtre FFT YM
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/divgrad2_p.F (modified) (5 diffs)

LMDZ4/trunk/libf/dyn3dpar/divgrad2_p.F

@@ -12 +12 @@
       USE parallel
       USE times
+      USE mod_hallo
       IMPLICIT NONE
 c
@@ -32 +33 @@
       INTEGER  l,ij,iter,lh
 c    ...................................................................
-
+      Type(Request) :: request_dissip
       INTEGER ijb,ije
 c
@@ -48 +49 @@
 c
 c$OMP BARRIER
-c$OMP MASTER
-      call suspend_timer(timer_dissip)
-      call exchange_Hallo(divgra,ip1jmp1,llm,1,1)
-      call resume_timer(timer_dissip)
-c$OMP END MASTER
+       call Register_Hallo(divgra,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
 c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
       CALL laplacien_p( klevel, divgra, divgra )
 
@@ -77 +78 @@
       DO  iter = 1, lh - 2
 c$OMP BARRIER
-c$OMP MASTER
-       call suspend_timer(timer_dissip)
-       call exchange_Hallo(divgra,ip1jmp1,llm,1,1)
-       call resume_timer(timer_dissip)
-c$OMP END MASTER
+       call Register_Hallo(divgra,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
 c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+
        CALL laplacien_gam_p ( klevel,cuvscvgam2,cvuscugam2,unsair_gam2,
      *                     unsapolnga2, unsapolsga2,  divgra, divgra )
@@ -98 +101 @@
 c
 c$OMP BARRIER
-c$OMP MASTER
-      call suspend_timer(timer_dissip)
-      call exchange_Hallo(divgra,ip1jmp1,llm,1,1)
-      call resume_timer(timer_dissip)
-c$OMP END MASTER
+       call Register_Hallo(divgra,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
 c$OMP BARRIER