finish_nonblocking_max_vel_reduction Subroutine

  1. nonlinear_terms.fpp
  2. nonlinear_terms
  3. finish_nonblocking_max_vel_reduction

private subroutine finish_nonblocking_max_vel_reduction()

Uses

Finish nonblocking calculation of the maximum velocity

This receives the mpi_iallreduce of the maximum velocity.

Arguments

None

Contents

Source Code

finish_nonblocking_max_vel_reduction

Source Code

  subroutine finish_nonblocking_max_vel_reduction
    use mp, only: wait, mp_request_null
    implicit none

    ! Wait for the nonblocking maximum operation used to find
    ! the maximum velocity.
    if (cfl_req_hand == mp_request_null) return
    call wait(cfl_req_hand)
    cfl_req_hand = mp_request_null
  end subroutine finish_nonblocking_max_vel_reduction