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

Timestamp:

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

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

@@ -1 @@
-
 subroutine radioactive_tracers(ngrid,nlayer,nq,ptimestep,pq,zdqradio)
 
@@ -44 +43 @@
             if (half_life(iq)/10 .le. ptimestep) then ! sanity test
                 write(*,*)"timestep is more than half-life / 10 of tracer ", noms(iq)
-                call abort
+                call abort_physic("radioactive_tracers","timestep is more than half-life / 10 of tracer",1)
             end if ! dt > 0.1 * half_life
             zdqradio(1:ngrid,1:nlayer,iq) = zdqradio(1:ngrid,1:nlayer,iq) - LOG(2.)/half_life(iq)*pq(1:ngrid,1:nlayer,iq) ! <== decay