Changeset 1475 for LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Jan 21, 2011, 3:41:03 PM (14 years ago)

Author:

Ehouarn Millour

Message:

Bug fix: don't "stop" in abort_gcm if all ends well (just let the program end cleanly and finalize parallel processes).
EM

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/leapfrog_p.F

@@ -996 +996 @@
           enddo
 !$OMP END DO
-!$OMP SINGLE
+!$OMP MASTER
           dpfi(ijb:ije)=0
-!$OMP END SINGLE
+!$OMP END MASTER
           ijb=ij_begin
           ije=ij_end