any_nan Function

private pure function any_nan(a, b, c, d, e) result(res)

ieee_is_nan OR-reduced across the five stats scalars.

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
real(kind=wp), intent(in) :: e

Return Value logical


Called by

proc~~any_nan~~CalledByGraph proc~any_nan any_nan proc~console_stats_report console_stats_report proc~console_stats_report->proc~any_nan proc~ocean_console_stats_report ocean_console_stats_report proc~ocean_console_stats_report->proc~console_stats_report proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~ocean_console_stats_report proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   pure function any_nan(a, b, c, d, e) result(res)
      !! `ieee_is_nan` OR-reduced across the five stats scalars.
      real(wp), intent(in) :: a, b, c, d, e
      logical :: res
      res = ieee_is_nan(a) .or. ieee_is_nan(b) .or. ieee_is_nan(c) &
            .or. ieee_is_nan(d) .or. ieee_is_nan(e)
   end function any_nan