beta7_3 Function

private pure function beta7_3(a, b, c, d) 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
real(kind=wp), intent(in) :: d

Return Value real(kind=wp)


Called by

proc~~beta7_3~~CalledByGraph proc~beta7_3 beta7_3 proc~weno7_recon weno7_recon proc~weno7_recon->proc~beta7_3 proc~coriolis_adv_compute_tendencies_sadourny coriolis_adv_compute_tendencies_sadourny proc~coriolis_adv_compute_tendencies_sadourny->proc~weno7_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 beta7_3(a, b, c, d) result(w)
      !$acc routine seq
      real(wp), intent(in) :: a, b, c, d
      real(wp) :: w
      w = a*(0.547_wp*a - 3.882_wp*b + 4.642_wp*c - 1.854_wp*d) &
          + b*(7.043_wp*b - 17.246_wp*c + 7.042_wp*d) &
          + c*(11.003_wp*c - 9.402_wp*d) + 2.107_wp*d*d
   end function beta7_3