Changeset 4180 for trunk/LMDZ.COMMON/libf/evolution/display.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/display.F90 (modified) (3 diffs)

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

@@ -19 +19 @@
 use, intrinsic :: iso_fortran_env, only: stderr => error_unit
 use, intrinsic :: iso_fortran_env, only: stdin => input_unit
-use numerics,                      only: dp, di, li, k4, minieps
+use numerics,                      only: dp, di, li, k4, eps
 
 ! DECLARATION
@@ -277 +277 @@
 
 END SUBROUTINE print_msg
+!=======================================================================
+
+!=======================================================================
+FUNCTION is_lvl_enabled(lvl) RESULT(enabled)
+!-----------------------------------------------------------------------
+! NAME
+!     is_lvl_enabled
+!
+! DESCRIPTION
+!     Return true if a message at level 'lvl' should be displayed.
+!
+! AUTHORS & DATE
+!     JB Clement, 04/2026
+!
+! NOTES
+!
+!-----------------------------------------------------------------------
+
+! DECLARATION
+! -----------
+implicit none
+
+! ARGUMENTS
+! ---------
+integer(di), intent(in) :: lvl
+
+! LOCAL VARIABLES
+! ---------------
+logical(k4) :: enabled
+
+! CODE
+! ----
+enabled = .false.
+if (lvl <= verbosity_lvl) enabled = .true.
+
+END FUNCTION is_lvl_enabled
 !=======================================================================
 
@@ -465 +501 @@
 if (gottacatch_emall_()) then
     call print_msg('',LVL_NFO)
-    if (abs(n_yr_run - first_gen) < minieps) then
+    if (abs(n_yr_run - first_gen) < eps) then
         do i = 1,size(surprise)
             call print_msg(trim(surprise(i)),LVL_NFO)