redi_signum1 Function

private pure function redi_signum1(x) result(s)

signum(1.,x): -1 if x<0, +1 if x>0, 0 if x==0 (MOM6 sign guard).

Arguments

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

Return Value real(kind=wp)


Called by

proc~~redi_signum1~~CalledByGraph proc~redi_signum1 redi_signum1 proc~redi_sublayer_dt redi_sublayer_dT proc~redi_sublayer_dt->proc~redi_signum1 proc~redi_tracer_column redi_tracer_column proc~redi_tracer_column->proc~redi_signum1 proc~redi_face_flux redi_face_flux proc~redi_face_flux->proc~redi_sublayer_dt 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_apply_flux redi_apply_flux proc~redi_apply_flux->proc~redi_apply_flux_impl proc~run_continuity_chain run_continuity_chain proc~run_continuity_chain->proc~redi_apply_flux

Source Code

   pure function redi_signum1(x) result(s)
      !$acc routine seq
      !! signum(1.,x): -1 if x<0, +1 if x>0, 0 if x==0 (MOM6 sign guard).
      real(wp), intent(in) :: x
      real(wp) :: s
      s = sign(1.0_wp, x)
      if (x == 0.0_wp) s = 0.0_wp
   end function redi_signum1