beta5_0 Function

private pure function beta5_0(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_0~~CalledByGraph proc~beta5_0 beta5_0 proc~weno5_recon weno5_recon proc~weno5_recon->proc~beta5_0 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_0(a, b, c) result(w)
      !$acc routine seq
      real(wp), intent(in) :: a, b, c
      real(wp) :: w
      w = a*(10.0_wp*a - 31.0_wp*b + 11.0_wp*c) + b*(25.0_wp*b - 19.0_wp*c) + 4.0_wp*c*c
   end function beta5_0