Changeset 4469 for LMDZ6/trunk/libf/dyn3dmem/mod_hallo.F90

Timestamp:

Mar 10, 2023, 5:52:00 PM (15 months ago)

Author:

Laurent Fairhead

Message:

Replaced STOP instructions by calls to abort_gcm for a cleaner exit

File:

• LMDZ6/trunk/libf/dyn3dmem/mod_hallo.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/mod_hallo.F90

@@ -154 +154 @@
     if (Buffer_pos(Index_pos)+Size>MaxBufferSize) then
       print *,'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
-      stop
+      CALL abort_gcm("mod_hallo","stopped",1)
     endif
     
     if (Index_pos>=ListSize) then
       print *,'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
-      stop
+      CALL abort_gcm("mod_hallo","stopped",1)
     endif
      
@@ -1416 +1416 @@
          IF (.NOT.using_mpi) THEN
            PRINT *,'Erreur, echange MPI en mode sequentiel !!!'
-           STOP
+           CALL abort_gcm("mod_hallo","stopped",1)
          ENDIF
 !         PRINT *,"-------------------------------------------------------------------"
@@ -1459 +1459 @@
              IF (.NOT.using_mpi) THEN
                PRINT *,'Erreur, echange MPI en mode sequentiel !!!'
-               STOP
+               CALL abort_gcm("mod_hallo","stopped",1)
              ENDIF