Changeset 3350 for trunk/LMDZ.COMMON


Ignore:
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

Location:
trunk/LMDZ.COMMON/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r1391 r3350  
    5151      write(lunout,*) 'Reason = ',message
    5252      if (ierr .eq. 0) then
    53         write(lunout,*) 'Everything is cool'
     53        write(lunout,*) 'Everything is cool!'
    5454        stop
    5555      else
    56         write(lunout,*) 'Houston, we have a problem ', ierr
     56        write(lunout,*) 'Houston, we have a problem, ierr =', ierr
    5757        stop 1
    5858      endif

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

    r1391 r3350  
    5151      write(lunout,*) 'Reason = ',message
    5252      if (ierr .eq. 0) then
    53         write(lunout,*) 'Everything is cool'
     53        write(lunout,*) 'Everything is cool!'
    5454      else
    55         write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
     55        write(lunout,*) 'Houston, we have a problem, ierr =', ierr
    5656#ifdef CPP_MPI
    5757C$OMP CRITICAL (MPI_ABORT_GCM)

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

    r1521 r3350  
    3737      write(lunout,*) 'Reason = ',message
    3838      if (ierr .eq. 0) then
    39         write(lunout,*) 'Everything is cool'
     39        write(lunout,*) 'Everything is cool!'
    4040      else
    41         write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
     41        write(lunout,*) 'Houston, we have a problem, ierr =', ierr
    4242#ifdef CPP_MPI
    4343!$OMP CRITICAL (MPI_ABORT_PHYSIC)
Note: See TracChangeset for help on using the changeset viewer.