beta7_1 Function

private pure function beta7_1(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_1~~CalledByGraph proc~beta7_1 beta7_1 proc~weno7_recon weno7_recon proc~weno7_recon->proc~beta7_1 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_1(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 - 2.522_wp*b + 1.922_wp*c - 0.494_wp*d) &
          + b*(3.443_wp*b - 5.966_wp*c + 1.602_wp*d) &
          + c*(2.843_wp*c - 1.642_wp*d) + 0.267_wp*d*d
   end function beta7_1