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

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

@@ -24 +24 @@
 ! PARAMETERS
 ! ----------
-character(11),                                parameter :: traceurdef_name = 'traceur.def'
-integer(di),                                  protected :: nq        ! Number of tracers
-character(30), dimension(:),     allocatable, protected :: qnames    ! Names of tracers
-real(dp),      dimension(:,:,:), allocatable, protected :: q_PCM     ! Tracers in the "start.nc" at the beginning
-integer(di),                                  protected :: iPCM_qh2o ! Index for H2O vapor tracer from PCM
-real(dp),      dimension(:),     allocatable, protected :: mmol      ! Molar masses of tracers [g/mol]
+character(11),                                parameter, private :: traceurdef_name = 'traceur.def'
+integer(di),                                  protected          :: nq        ! Number of tracers
+character(30), dimension(:),     allocatable, protected          :: qnames    ! Names of tracers
+real(dp),      dimension(:,:,:), allocatable, protected          :: q_PCM     ! Tracers in the "start.nc" at the beginning
+integer(di),                                  protected          :: iPCM_qh2o ! Index for H2O vapor tracer from PCM
+real(dp),      dimension(:),     allocatable, protected          :: mmol      ! Molar masses of tracers [g/mol]
 
 contains
@@ -54 +54 @@
 use stoppage, only: stop_clean
 use geometry, only: ngrid, nlayer
-use display,  only: print_msg
+use display,  only: print_msg, LVL_NFO
 use utility,  only: int2str
 
@@ -70 +70 @@
 inquire(file = traceurdef_name,exist = here)
 if (.not. here) call stop_clean(__FILE__,__LINE__,'cannot find required file "'//traceurdef_name//'"!',1)
-call print_msg('> Reading "'//traceurdef_name//'"')
+call print_msg('> Reading "'//traceurdef_name//'"',LVL_NFO)
 open(newunit = funit,file = traceurdef_name,status = 'old',form = 'formatted',action = 'read',iostat = ierr)
 if (ierr /= 0) call stop_clean(__FILE__,__LINE__,'error opening file "'//traceurdef_name//'"!',ierr)
 read(funit,*) nq
-call print_msg('nq = '//int2str(nq))
+call print_msg('nq = '//int2str(nq),LVL_NFO)
 
 ! Allocation
@@ -196 +196 @@
 use geometry,   only: ngrid, nday
 use atmosphere, only: ap, bp
-use display,    only: print_msg
+use display,    only: print_msg, LVL_NFO
 
 ! DECLARATION
@@ -213 +213 @@
 ! CODE
 ! ----
-call print_msg("> Adapting the timeseries of tracers VMR to the new pressure")
+call print_msg("> Adapting the timeseries of tracers VMR to the new pressure",LVL_NFO)
 
 ! Build the first levels of pressure
@@ -260 +260 @@
 use atmosphere, only: ap, bp, ps_PCM
 use geometry,   only: ngrid, nlayer
-use display,    only: print_msg
+use display,    only: print_msg, LVL_NFO
 
 ! DECLARATION
@@ -279 +279 @@
 ! CODE
 ! ----
-call print_msg('> Building tracers for the PCM')
+call print_msg('> Building tracers for the PCM',LVL_NFO)
 allocate(dz_plev_PCM(ngrid,nlayer),dz_plev_new(ngrid,nlayer))