redi_signum Function

private pure function redi_signum(a, x) result(s)

A true signum: -|a| if x<0, +|a| if x>0, 0 if x==0 (MOM6 signum).

Arguments

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

Return Value real(kind=wp)


Called by

proc~~redi_signum~~CalledByGraph proc~redi_signum redi_signum proc~redi_plm_diff redi_plm_diff proc~redi_plm_diff->proc~redi_signum proc~redi_interface_scalar redi_interface_scalar proc~redi_interface_scalar->proc~redi_plm_diff proc~redi_build_column redi_build_column proc~redi_build_column->proc~redi_interface_scalar proc~redi_tracer_column redi_tracer_column proc~redi_tracer_column->proc~redi_interface_scalar proc~redi_face_coeffs redi_face_coeffs proc~redi_face_coeffs->proc~redi_build_column proc~redi_face_flux redi_face_flux proc~redi_face_flux->proc~redi_tracer_column proc~redi_apply_flux_impl redi_apply_flux_impl proc~redi_apply_flux_impl->proc~redi_face_flux proc~redi_calc_coeffs_x redi_calc_coeffs_x proc~redi_calc_coeffs_x->proc~redi_face_coeffs proc~redi_calc_coeffs_y redi_calc_coeffs_y proc~redi_calc_coeffs_y->proc~redi_face_coeffs

Source Code

   pure function redi_signum(a, x) result(s)
      !$acc routine seq
      real(wp), intent(in) :: a, x
      real(wp) :: s

      s = sign(a, x)
      if (x == 0.0_wp) s = 0.0_wp
   end function redi_signum