Changeset 1272

Timestamp:

Dec 4, 2009, 8:37:17 AM (15 years ago)

Author:

Ehouarn Millour

Message:

Bug fix (problem only occured when running Newtonian case with both MPI and OpenMP turned on): call SendRequest?(Request_Physic) must be followed by an OMP barrier.

EM & YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

@@ -968 +968 @@
        call Register_Hallo(vcov,ip1jm,llm,1,1,1,1,Request_Physic)
        call SendRequest(Request_Physic)
+c$OMP BARRIER
        call WaitRequest(Request_Physic)