Changeset 1475 for LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/abort_gcm.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/abort_gcm.F (modified) (1 diff)

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

@@ -45 +45 @@
       if (ierr .eq. 0) then
         write(lunout,*) 'Everything is cool'
-        stop
       else
         write(lunout,*) 'Houston, we have a problem ', ierr