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

Timestamp:

May 31, 2024, 3:04:18 PM (14 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/dyn3dpar/abort_gcm.F (modified) (1 diff)

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

@@ -51 +51 @@
       write(lunout,*) 'Reason = ',message
       if (ierr .eq. 0) then
-        write(lunout,*) 'Everything is cool'
+        write(lunout,*) 'Everything is cool!'
       else
-        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr =', ierr
 #ifdef CPP_MPI
 C$OMP CRITICAL (MPI_ABORT_GCM)