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

Timestamp:

Jul 23, 2025, 2:32:43 PM (4 weeks ago)

Author:

gmilcareck

Message:

Change the declaration of q from INOUT to IN + change call abort in radioactive_tracers.

File:

• trunk/LMDZ.GENERIC/libf/phystd/radioactive_tracers.F90 (modified) (1 diff)

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

@@ -44 +44 @@
             if (half_life(iq)/10 .le. ptimestep) then ! sanity test
                 write(*,*)"timestep is more than half-life / 10 of tracer ", noms(iq)
-                call abort_physic()
+                call abort
             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