Changeset 4180 for trunk/LMDZ.COMMON/libf/evolution/numerics.F90

Timestamp:

Apr 10, 2026, 7:17:55 PM (6 hours ago)

Author:

jbclement

Message:

PEM:

• Rework layering-related logic, especially clarify interactions between surface and subsurface water tendencies and disable CO2 lag resistance (inconsistent without updating pressure and mass balance + PCM).
• Prevent simultaneous activation of layering and ice flows.
• Add warning when flux_geo /= 0 while soil is disabled.
• Add new utility function "is_lvl_enabled" for displaying.
• Replace deprecated 'minieps' with 'eps'/'tol'.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/numerics.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/numerics.F90

@@ -74 +74 @@
 real(qp), parameter :: minieps_qp = epsilon(1._qp)
 real(wp), parameter :: minieps = epsilon(1._wp)
-real(wp), parameter :: tol = 100._wp*minieps
+real(wp), parameter :: eps    = 100._wp*minieps    ! ~ 10^(-14)
+real(wp), parameter :: eps_qp = 100._wp*minieps_qp ! ~ 10^(-14)
+real(wp), parameter :: tol    = 100._wp*eps        ! ~ 10^(-12)
 
 ! Minimum number of significant decimal digits