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

Timestamp:

Mar 9, 2026, 10:29:53 AM (12 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/surface.F90 (modified) (3 diffs)

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

@@ -24 +24 @@
 ! PARAMETERS
 ! ----------
-real(dp), dimension(:),   allocatable, protected :: albedodat_PCM  ! Albedo of bare ground
-real(dp), dimension(:,:), allocatable, protected :: albedo_PCM     ! Surface albedo_PCM
-real(dp), dimension(:,:), allocatable, protected :: emissivity_PCM ! Thermal IR surface emissivity_PCM
+real(dp), dimension(:),   allocatable, protected, private :: albedodat_PCM  ! Albedo of bare ground
+real(dp), dimension(:,:), allocatable, protected, private :: albedo_PCM     ! Surface albedo_PCM
+real(dp), dimension(:,:), allocatable, protected          :: emissivity_PCM ! Thermal IR surface emissivity_PCM
 
 contains
@@ -210 +210 @@
 use geometry, only: ngrid, nslope, latitudes
 use frost,    only: h2o_frost4PCM, co2_frost4PCM
-use display,  only: print_msg
+use display,  only: print_msg, LVL_NFO
 
 ! DECLARATION
@@ -234 +234 @@
 
 ! Reconstruction Loop
-call print_msg('> Building albedo and emmissivity for the PCM')
+call print_msg('> Building albedo and emmissivity for the PCM',LVL_NFO)
 do i = 1,ngrid
     ! Determine hemisphere: 1 = Northern, 2 = Southern