Changeset 4469 for LMDZ6/trunk/libf/dyn3dmem/times.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/times.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3dmem/times.F90

@@ -55 +55 @@
     
       if (timer_state(no_timer)/=stopped) then
-        stop 'start_timer :: timer is already running or suspended'
+        CALL abort_gcm("times","start_timer :: timer is already running or suspended",1)
       else
         timer_state(no_timer)=running
@@ -73 +73 @@
     if (AllTimer_IsActive) then   
       if (timer_state(no_timer)/=running) then
-        stop 'suspend_timer :: timer is not running'
+         CALL abort_gcm("times","suspend_timer :: timer is not running",1)
       else
         timer_state(no_timer)=suspended
@@ -90 +90 @@
     if (AllTimer_IsActive) then   
       if (timer_state(no_timer)/=suspended) then
-        stop 'resume_timer :: timer is not suspended'
+        CALL abort_gcm("times","resume_timer :: timer is not suspended",1)
       else
         timer_state(no_timer)=running
@@ -110 +110 @@
        
       if (timer_state(no_timer)/=running) then
-        stop 'stop_timer :: timer is not running'
+        CALL abort_gcm("times","stop_timer :: timer is not running",1)
       else
         timer_state(no_timer)=stopped