beta5_1 Function

private pure function beta5_1(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_1~~CalledByGraph proc~beta5_1 beta5_1 proc~weno5_recon weno5_recon proc~weno5_recon->proc~beta5_1 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_1(a, b, c) result(w)
      !$acc routine seq
      real(wp), intent(in) :: a, b, c
      real(wp) :: w
      w = a*(4.0_wp*a - 13.0_wp*b + 5.0_wp*c) + b*(13.0_wp*b - 13.0_wp*c) + 4.0_wp*c*c
   end function beta5_1