beta5_2 Function

private pure function beta5_2(a, b, c) result(w)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: a
real(kind=wp), intent(in) :: b
real(kind=wp), intent(in) :: c

Return Value real(kind=wp)


Called by

proc~~beta5_2~~CalledByGraph proc~beta5_2 beta5_2 proc~weno5_recon weno5_recon proc~weno5_recon->proc~beta5_2 proc~coriolis_adv_compute_tendencies_sadourny coriolis_adv_compute_tendencies_sadourny proc~coriolis_adv_compute_tendencies_sadourny->proc~weno5_recon proc~coriolis_adv_compute_tendencies coriolis_adv_compute_tendencies proc~coriolis_adv_compute_tendencies->proc~coriolis_adv_compute_tendencies_sadourny proc~run_stage run_stage proc~run_stage->proc~coriolis_adv_compute_tendencies proc~run_stage_split run_stage_split proc~run_stage_split->proc~coriolis_adv_compute_tendencies proc~ocean_dyn_step ocean_dyn_step proc~ocean_dyn_step->proc~run_stage proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split

Source Code

   pure function beta5_2(a, b, c) result(w)
      !$acc routine seq
      real(wp), intent(in) :: a, b, c
      real(wp) :: w
      w = a*(4.0_wp*a - 19.0_wp*b + 11.0_wp*c) + b*(25.0_wp*b - 31.0_wp*c) + 10.0_wp*c*c
   end function beta5_2