Changeset 3893 for trunk/LMDZ.GENERIC/libf/phystd/interpolateN2N2.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/interpolateN2N2.F90 (modified) (3 diffs)

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

@@ -66 +66 @@
        print*,'find relevant data.'
      endif !is_master
-     stop
+     call abort_physic("interpolateN2N2", "temperatures are too high for this CIA dataset", 1)
    else
      !if (is_master) then
@@ -102 +102 @@
           write(*,*) 'Also check that the continuum data continuum_data/N2-N2_norm_2011.cia is there.'
         endif
-        call abort
+        call abort_physic("interpolateN2N2", "Unable to read file", 1)
      else
 
@@ -114 +114 @@
                 print*,'Please adjust nS value in interpolateN2N2.F90'
               endif
-              stop
+              call abort_physic("interpolateN2N2", "Resolution given does not match with nS value", 1)
            endif
            temp_arr(iT)=Ttemp