Changeset 4110 for trunk/LMDZ.COMMON/libf/evolution/sorption.F90

Timestamp:

Mar 9, 2026, 10:29:53 AM (8 days ago)

Author:

jbclement

Message:

PEM:

• Introduction of a configurable display/logging system with options 'out2term', 'out2log', 'verbosity_lvl'. All messages now use verbosity levels ('LVL_NFO', 'LVL_WRN', 'LVL_ERR' and 'LVL_DBG').
• Code encapsulation improvements with systematic privacy/protection of module variables.
• Addition of workflow safety checks for required executables, dependencies (e.g. 'ncdump'), input files and callphys keys.
• Renaming of PEM starting and diagnostic files ("startevol.nc" into "startevo.nc", "diagevol.nc" into "diagevo.nc").

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/sorption.F90 (modified) (4 diffs)

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

@@ -50 +50 @@
 ! ------------
 use utility, only: bool2str
-use display, only: print_msg
+use display, only: print_msg, LVL_NFO
 
 ! DECLARATION
@@ -63 +63 @@
 ! ----
 do_sorption = do_sorption_in
-call print_msg('do_sorption = '//bool2str(do_sorption))
+call print_msg('do_sorption = '//bool2str(do_sorption),LVL_NFO)
 
 END SUBROUTINE set_sorption_config
@@ -436 +436 @@
 use soil,     only: layer
 use maths,    only: pi
-use display,  only: print_msg
+use display,  only: print_msg, LVL_NFO
 use utility,  only: real2str
 
@@ -471 +471 @@
     end do
 end do
-call print_msg("Total mass of CO2 adsorbed in the regolith [kg] = "//real2str(totmass_adsco2))
-call print_msg("Total mass of H2O adsorbed in the regolith [kg] = "//real2str(totmass_adsh2o))
+call print_msg("Total mass of CO2 adsorbed in the regolith [kg] = "//real2str(totmass_adsco2),LVL_NFO)
+call print_msg("Total mass of H2O adsorbed in the regolith [kg] = "//real2str(totmass_adsh2o),LVL_NFO)
 
 END SUBROUTINE compute_totmass_adsorbed