Changeset 3350 for trunk/LMDZ.COMMON/libf

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

Location:

trunk/LMDZ.COMMON/libf

Files:

• dyn3d/abort_gcm.F (modified) (1 diff)
• dyn3dpar/abort_gcm.F (modified) (1 diff)
• phy_common/abort_physic.F90 (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

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)

trunk/LMDZ.COMMON/libf/phy_common/abort_physic.F90

@@ -37 +37 @@
       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
 !$OMP CRITICAL (MPI_ABORT_PHYSIC)