From d0892c49620319f9764af64687ac869e6a61c18f Mon Sep 17 00:00:00 2001 From: Helen Kershaw Date: Fri, 8 Nov 2024 12:54:12 -0500 Subject: [PATCH] fix: error message to match the routine name --- assimilation_code/modules/utilities/mpi_utilities_mod.f90 | 2 +- assimilation_code/modules/utilities/mpif08_utilities_mod.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/assimilation_code/modules/utilities/mpi_utilities_mod.f90 b/assimilation_code/modules/utilities/mpi_utilities_mod.f90 index d9bd640a3..d091c1263 100644 --- a/assimilation_code/modules/utilities/mpi_utilities_mod.f90 +++ b/assimilation_code/modules/utilities/mpi_utilities_mod.f90 @@ -1475,7 +1475,7 @@ subroutine all_reduce_min_max(min_var, max_var, num_elements) if ( .not. module_initialized ) then write(errstring, *) 'initialize_mpi_utilities() must be called first' - call error_handler(E_ERR,'broadcast_minmax', errstring, source) + call error_handler(E_ERR,'all_reduce_min_max', errstring, source) endif call mpi_allreduce(MPI_IN_PLACE, min_var, num_elements, datasize, MPI_MIN, get_dart_mpi_comm(), errcode) diff --git a/assimilation_code/modules/utilities/mpif08_utilities_mod.f90 b/assimilation_code/modules/utilities/mpif08_utilities_mod.f90 index 51bc507fe..b2b1791aa 100644 --- a/assimilation_code/modules/utilities/mpif08_utilities_mod.f90 +++ b/assimilation_code/modules/utilities/mpif08_utilities_mod.f90 @@ -1475,7 +1475,7 @@ subroutine all_reduce_min_max(min_var, max_var, num_elements) if ( .not. module_initialized ) then write(errstring, *) 'initialize_mpi_utilities() must be called first' - call error_handler(E_ERR,'broadcast_minmax', errstring, source) + call error_handler(E_ERR,'all_reduce_min_max', errstring, source) endif call mpi_allreduce(MPI_IN_PLACE, min_var, num_elements, datasize, MPI_MIN, get_dart_mpi_comm(), errcode)