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

Timestamp:

Aug 13, 2025, 7:53:49 PM (5 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/interpolateCO2H2.F90 (modified) (4 diffs)

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

@@ -58 +58 @@
      print*,'Your temperatures are too high for this CO2-H2 CIA dataset.'
      print*,'Please run mixed CO2-H2 atmospheres below T = 600 K.'      
-     stop
+     call abort_physic("interpolateCO2H2", "temperatures are too high for this CIA dataset", 1)
   endif
   
@@ -64 +64 @@
      print*,'Your temperatures are too low for this CO2-H2 CIA dataset.'
      print*,'Please run mixed CO2-H2 atmospheres above T = 100 K.'      
-     stop
+     call abort_physic("interpolateCO2H2", "temperatures are too low for this CIA dataset", 1)
   endif
 
@@ -87 +87 @@
         write(*,*) 'datadir = /absolute/path/to/datagcm'
         write(*,*) 'Also check that the continuum data continuum_data/CO2-H2_TURBET2020.cia is there.'       
-        call abort
+        call abort_physic("interpolateCO2H2", "Unable to read file", 1)
      else
 
@@ -97 +97 @@
               print*,'is ',nres,', which does not match nS.'
               print*,'Please adjust nS value in interpolateCO2H2.F90'
-              stop
+              call abort_physic("interpolateCO2H2", "Resolution given does not match with nS value", 1)
            endif
            temp_arr(iT)=Ttemp