Changeset 3724 for trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90

Timestamp:

Apr 14, 2025, 4:42:01 PM (2 months ago)

Author:

mmaurice

Message:

Generic PCM

Add radioactive tracers in order to compare tracers mixing between 3D and 1D.

MM

File:

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

trunk/LMDZ.GENERIC/libf/phystd/tracer_h.F90 ¶

@@ -55 +55 @@
 !$OMP THREADPRIVATE(constants_Pref,constants_epsi_generic)
 !$OMP THREADPRIVATE(constants_RLVTT_generic,constants_metallicity_coeff,constants_RCPV_generic)
+
+       real, save, allocatable :: half_life(:) ! half-life (s) for radioactive tracers. If 0, tracer is not decaying.
+       real, save, allocatable :: top_prod(:)  ! top production rate (1/s) for radioactive tracers. Non-dim, so use 1.
+       real, save, allocatable :: bot_prod(:)  ! bottom production rate (1/s) for radioactive tracers. Non-dim, so use 1.
+!$OMP THREADPRIVATE(half_life,top_prod,bot_prod)
+
 
 !$OMP THREADPRIVATE(is_condensable,is_rgcs)   !also added by LT