Changeset 3547 for trunk/LMDZ.PLUTO

Timestamp:

Dec 11, 2024, 4:28:17 PM (12 days ago)

Author:

debatzbr

Message:

Remove abort_physic if minimum pressure is outside the radiative transfert kmatrix bounds in callcorrk.F90

File:

• trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90

@@ -900 +900 @@
       ! Test for out-of-bounds pressure.
       if(plevrad(3).lt.pgasmin)then
-         print*,'Minimum pressure is outside the radiative'
+         print*,'Warning: minimum pressure is outside the radiative'
          print*,'transfer kmatrix bounds, exiting.'
+         print*,'Pressure:', plevrad(3), 'Pa'
          message="Minimum pressure outside of kmatrix bounds"
-         call abort_physic(subname,message,1)
+         !call abort_physic(subname,message,1)
       elseif(plevrad(L_LEVELS).gt.pgasmax)then
          print*,'Maximum pressure is outside the radiative'