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

Timestamp:

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

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

@@ -66 +66 @@
         print*,'Please run mixed H2-CH4 atmospheres below T = 400 K.'      
       endif
-      stop
+      call abort_physic("interpolateH2CH4", "temperatures are too high for this CIA dataset", 1)
     else
       !if (is_master) then
@@ -85 +85 @@
         print*,'Please run mixed H2-CH4 atmospheres above T = 40 K.'      
       endif
-      stop
+      call abort_physic("interpolateH2CH4", "temperatures are too low for this CIA dataset", 1)
     else
       !if (is_master) then
@@ -125 +125 @@
           write(*,*) 'Also check that the continuum data continuum_data/H2-CH4_norm_2011.cia is there.'
         endif
-        call abort
+        call abort_physic("interpolateH2CH4", "Unable to read file", 1)
      else
 
@@ -137 +137 @@
                 print*,'Please adjust nS value in interpolateH2CH4.F90'
               endif
-              stop
+              call abort_physic("interpolateH2CH4", "Resolution given does not match with nS value", 1)
            endif
            temp_arr(iT)=Ttemp