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

Timestamp:

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

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

@@ -558 +558 @@
              write(*,*) 'Data file ',trim(varspec_data),' not found.'
              write(*,*) 'Check that the data is in your run repository.'
-             call abort !a verifier
+             call abort_physic("Varspec", "Unable to read file", 1)
            else
              do k=1,nvarlayer
@@ -631 +631 @@
              write(*,*) "dynamics day: ",pday
              write(*,*) "physics day:  ",day_ini
-             stop
+             call abort_physic("physiq_mod", "Bad synchronization between physics and dynamics", 1)
          endif
 
@@ -892 +892 @@
       else if (flatten .eq. 0.0 .or. J2 .eq. 0.0 .or. Rmean .eq. 0.0 .or. MassPlanet .eq. 0.0) then
          print*,'I need values for flatten, J2, Rmean and MassPlanet to compute glat (else set oblate=.false.)'
-         call abort
+         call abort_physic("Oblate case", "Missing values for oblate case", 1)
       else
          gmplanet = MassPlanet*grav*1e24
@@ -1011 +1011 @@
 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                if(kastprof)then
-                  print*,'kastprof should not = true here'
-                  call abort
+                  call abort_physic("Correlated-k", "kastprof should not = true here", 1)
                endif
                if(water) then
@@ -1479 +1478 @@
 
          if (.not.tracer) then
-            print*,'We need a CO2 ice tracer to condense CO2'
-            call abort
+            call abort_physic("condense_co2", "We need a CO2 ice tracer to condense CO2", 1)
          endif
          call condense_co2(ngrid,nlayer,nq,ptimestep,                    &
@@ -2230 +2228 @@
                print*,'temp=   ',pt(ig,:)
                print*,'pplay=  ',pplay(ig,:)
-               call abort
+               call abort_physic("Correlated-k", "Something wrong happened to fluxtop_dn", 1)
             endif
          end do
@@ -2278 +2276 @@
          print*,'As testradtimes enabled,'
          print*,'exiting physics on first call'
-         call abort
+         call abort_physic("physic_mod", "Radiative-convective timescale test enabled", 1)
       endif