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

Timestamp:

May 31, 2024, 3:04:18 PM (6 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/phy_common/abort_physic.F90 (modified) (1 diff)

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)