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

LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90

@@ -502 +502 @@
             write(*,*)trim(modname)//' second pass in advreel at itau=',&
             itau
-            stop
+            CALL abort_gcm("guide_loc_lod","stopped",1)
           ELSE
 !$OMP MASTER
@@ -1529 +1529 @@
               if (gamma.lt.1.e-5) then
                 write(*,*)trim(modname)//' gamma =',gamma,'<1e-5'
-                stop
+                CALL abort_gcm("guide_loc_mod","stopped",1)
               endif
               gamma=log(0.5)/log(gamma)