Changeset 3350 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

May 31, 2024, 3:04:18 PM (7 months ago)

Author:

jbclement

Message:

Mars PCM:

• Correction for the script "launch_orb_1Dchained.sh" in the deftank.
• Small cleanings related to error detection.

JBC

File:

• trunk/LMDZ.COMMON/libf/dyn3d/abort_gcm.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/abort_gcm.F

@@ -51 +51 @@
       write(lunout,*) 'Reason = ',message
       if (ierr .eq. 0) then
-        write(lunout,*) 'Everything is cool'
+        write(lunout,*) 'Everything is cool!'
         stop
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr =', ierr
         stop 1
       endif