Merge branch 'develop' into release/MAPL-v3

CHANGELOG.md

@@ -72,6 +72,8 @@ _ Add run_dt to ComponentSpec and ComponentSpecParser
 
 ### Added
 
+- Added loggers when writing or reading weight files
+
 ### Changed
 
 ### Fixed

base/MAPL_EsmfRegridder.F90

@@ -14,6 +14,7 @@ module MAPL_EsmfRegridderMod
    use MAPL_RegridderSpecRouteHandleMap
    use MAPL_MAPLGrid
    use MAPL_ConstantsMod
+   use pFlogger, only: logging, Logger
    implicit none
    private
 
@@ -1443,6 +1444,9 @@ subroutine create_route_handle(this, kind, rc)
      logical :: rh_file_exists, file_weights, compute_transpose
      type(ESMF_Info) :: infoh
 
+     type(Logger), pointer :: lgr
+     lgr => logging%get_logger('MAPL')
+
      if (kind == ESMF_TYPEKIND_R4) then
         route_handles => route_handles_r4
         transpose_route_handles => transpose_route_handles_r4
@@ -1469,6 +1473,7 @@ subroutine create_route_handle(this, kind, rc)
            rh_file_exists = .false.
         end if
         if (rh_file_exists) then
+           call lgr%info('Reading weight file: %a', trim(rh_file))
            route_handle = ESMF_RouteHandleCreate(rh_file,_RC)
            call route_handles%insert(spec, route_handle)
            if (compute_transpose) then
@@ -1588,8 +1593,10 @@ subroutine create_route_handle(this, kind, rc)
            call ESMF_FieldDestroy(dst_field, rc=status)
            _VERIFY(status)
            if (file_weights) then
+              call lgr%info('Writing weight file: %a', trim(rh_file))
               call ESMF_RouteHandleWrite(route_handle,rh_file,_RC)
               if (compute_transpose) then
+                 call lgr%info('Writing transpose weight file: %a', trim(rh_trans_file))
                  call ESMF_RouteHandleWrite(transpose_route_handle,rh_trans_file,_RC)
               end if
            end if