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

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

@@ -139 +139 @@
 ! ------------
 use geometry, only: ngrid, nslope, nlon, nlat, latitudes, vect2lonlat, lonlat2vect
-use display,  only: print_msg
+use display,  only: print_msg, LVL_NFO, LVL_WRN
 use utility,  only: int2str
 
@@ -167 +167 @@
 if (ngrid == 1) return
 
-call print_msg("> Adapting surface temperature where ice disappeared")
+call print_msg("> Adapting surface temperature where ice disappeared",LVL_NFO)
 ! Convert from reduced grid to lon-lat grid
 call vect2lonlat(nlon,nlat,ngrid,latitudes,latitude_ll)
@@ -225 +225 @@
                     radius = radius + 1
                 end do
-                if (.not. found) call print_msg("Warning: no bare soil found for ice disappeared at point ("//int2str(i)//','//int2str(j)//','//int2str(islope)//'!')
+                if (.not. found) call print_msg("No bare soil found for ice disappeared at point ("//int2str(i)//','//int2str(j)//','//int2str(islope)//'!',LVL_WRN)
             end if
         end do
@@ -325 +325 @@
 ! DEPENDENCIES
 ! ------------
-use display, only: print_msg
+use display, only: print_msg, LVL_NFO
 
 ! DECLARATION
@@ -338 +338 @@
 ! CODE
 ! ----
-call print_msg('> Building surface temperature for the PCM')
+call print_msg('> Building surface temperature for the PCM',LVL_NFO)
 tsurf4PCM(:,:) = tsurf_avg(:,:) + tsurf_dev(:,:)