calc_common_global_timestep Function

private function calc_common_global_timestep(local_dt, proc) result(dt)

Function to find a single global time step for all levels and processes.

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(inout), allocatable:: local_dt(:)

Process local time steps on each level.

type(tem_comm_env_type), intent(in) :: proc

mpi communication enviroment with mpi communicator

Return Value real(kind=rk)

Resulting global time step for all processes and levels.


Calls

proc~~calc_common_global_timestep~~CallsGraph proc~calc_common_global_timestep calc_common_global_timestep mpi_allreduce mpi_allreduce proc~calc_common_global_timestep->mpi_allreduce

Called by

proc~~calc_common_global_timestep~~CalledByGraph proc~calc_common_global_timestep calc_common_global_timestep proc~create_global_timestep create_global_timestep proc~create_global_timestep->proc~calc_common_global_timestep proc~atl_get_timestep atl_get_timestep proc~atl_get_timestep->proc~create_global_timestep proc~atl_solve_program atl_solve_program proc~atl_solve_program->proc~atl_get_timestep proc~atl_initialize_program atl_initialize_program proc~atl_initialize_program->proc~atl_get_timestep program~ateles ateles program~ateles->proc~atl_solve_program program~ateles->proc~atl_initialize_program

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: ierr
real(kind=rk), private :: local_min