Changing calls to broadcast_minmax to call all_reduce_min_max in FESO…

…M and mpas_atm model_mods
NCAR · Nov 5, 2024 · 69ff3c9 · 69ff3c9
1 parent a83943e
commit 69ff3c9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/models/FESOM/model_mod.f90 b/models/FESOM/model_mod.f90
@@ -60,7 +60,7 @@ module model_mod
 
 use         obs_kind_mod, only : get_index_for_quantity
 
-use mpi_utilities_mod, only: my_task_id, broadcast_minmax, task_count
+use mpi_utilities_mod, only: my_task_id, all_reduce_min_max, task_count
 
 use         fesom_modules, only: read_node, read_aux3, read_depth, read_namelist, &
                                  nCells => myDim_nod2D, & ! number of surface locations
@@ -828,7 +828,7 @@ subroutine pert_model_copies(ens_handle, ens_size, pert_amp, interf_provided)
 enddo
 
 ! get global min/max for each variable
-call broadcast_minmax(min_var, max_var, num_variables)
+call all_reduce_min_max(min_var, max_var, num_variables)
 deallocate(within_range)
 
 call init_random_seq(random_seq, my_task_id()+1)

diff --git a/models/mpas_atm/model_mod.f90 b/models/mpas_atm/model_mod.f90
@@ -104,7 +104,7 @@ module model_mod
                              QTY_SURFACE_TYPE,             &  ! for rttov
                              QTY_CLOUD_FRACTION               ! for rttov
 
-use mpi_utilities_mod, only: my_task_id, broadcast_minmax
+use mpi_utilities_mod, only: my_task_id, all_reduce_min_max
 
 use    random_seq_mod, only: random_seq_type, init_random_seq, random_gaussian
 
@@ -1812,7 +1812,7 @@ subroutine pert_model_copies(ens_handle, ens_size, pert_amp, interf_provided)
 enddo
 
 ! get global min/max for each variable
-call broadcast_minmax(min_var, max_var, num_variables)
+call all_reduce_min_max(min_var, max_var, num_variables)
 deallocate(within_range)
 
 call init_random_seq(random_seq, my_task_id()+1)