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

Timestamp:

Aug 13, 2025, 7:53:49 PM (6 months 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/ave_stelspec.F90 (modified) (6 diffs)

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

@@ -88 +88 @@
            Case(4)
             file_id='/stellar_spectra/gj644.txt'
-            print*,'Find out tstellar before using this star!'
-            call abort
+            call abort_physic("GJ644", "Tstellar unknown", 1)
             file_id_lam='/stellar_spectra/lam.txt'
             Nfine=5000
@@ -137 +136 @@
               write(*,*)'Error: with startype 11 tstellar need to be specified'
               write(*,*)'  Specified in callphys.def tstellar=...'
-              stop
+              call abort_physic("ave_stelspec", "startype 11 tstellar needs to be specified",1)
             end if
    
@@ -154 +153 @@
               write(*,*)'   callphys.def with:'
               write(*,*)'   stelspec_file=filename'
-              stop
+              call abort_physic("ave_stelspec", "Unable to read stellar flux file", 1)
             end if
 
@@ -168 +167 @@
             READ(110,*) ! skip header
            Case Default
-            print*,'Error: unknown star type chosen'
-            call abort
+            call abort_physic("ave_stelspec", "Unknown star type chosen", 1)
          End Select
 
@@ -190 +188 @@
            write(*,*)' datadir = /absolute/path/to/datagcm'
            write(*,*)' Also check that there is a ',trim(file_id_lam),' there.'
-           call abort
+           call abort_physic("ave_stelspec", "Unable to find file", 1)
          else
            do ifine=1,Nfine
@@ -209 +207 @@
            write(*,*)' datadir = /absolute/path/to/datagcm'
            write(*,*)' Also check that there is a ',trim(file_id),' there.'
-           call abort
+           call abort_physic("ave_stelspec", "Unable to find file", 1)
          else
            do ifine=1,Nfine