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

Timestamp:

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

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

@@ -70 +70 @@
               print*,'Please run mixed H2-He atmospheres below T = 9900.0 K.'      
             endif !is_master
-            stop
+            call abort_physic("interpolateH2He", "temperatures are too high for this CIA dataset", 1)
           else
             !if (is_master) then
@@ -91 +91 @@
               print*,'Please run mixed H2-He atmospheres below T = 400 K.'      
             endif ! is_master
-            stop
+            call abort_physic("interpolateH2He", "temperatures are too high for this CIA dataset", 1)
           else
             !if (is_master) then
@@ -110 +110 @@
               print*,'Please run mixed H2-He atmospheres above T = 40 K.'  
             endif ! is_master    
-            stop
+            call abort_physic("interpolateH2He", "temperatures are too low for this CIA dataset", 1)
           else
             !if (is_master) then
@@ -161 +161 @@
              write(*,*) 'Also check that the continuum data is there.'
            endif
-           call abort
+           call abort_physic("interpolateH2He", "Unable to read file", 1)
          else
 
@@ -173 +173 @@
                     print*,'Please adjust nS value in interpolateH2He.F90'
                   endif
-                  stop
+                  call abort_physic("interpolateH2He", "Resolution given does not match with nS value", 1)
                endif
                temp_arr(iT)=Ttemp