Changeset 3893 for trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

Timestamp:

Aug 13, 2025, 7:53:49 PM (5 days ago)

Author:

gmilcareck

Message:

Remove all "call abort" and "stop" statement in LMDZ.GENERIC and replacing them by call abort_physic().

File:

• trunk/LMDZ.GENERIC/libf/phystd/setspv.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

@@ -64 +64 @@
          write(*,*)' datadir = /absolute/path/to/datagcm'
          write(*,*)'Also check that the corrkdir you chose in callphys.def exists.'
-         call abort
+         call abort_physic("setspv", "Unable to read file",1)
       endif
         
@@ -83 +83 @@
       if(nb.ne.L_NSPECTV) then
          write(*,*) 'MISMATCH !! I stop here'
-         call abort
+         call abort_physic("setspv","The number of entries in narrowbands_VI.in does not match with L_NSPECTV",1)
       endif