get_clamped_tracer Function

private pure function get_clamped_tracer(arr, it) result(val)

Safe accessor: return clamped_tracer(it) or 0 if unallocated/out of range.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), allocatable :: arr(:)
integer, intent(in) :: it

Return Value real(kind=wp)


Called by

proc~~get_clamped_tracer~~CalledByGraph proc~get_clamped_tracer get_clamped_tracer proc~ocean_obc_fill_ghosts ocean_obc_fill_ghosts proc~ocean_obc_fill_ghosts->proc~get_clamped_tracer proc~ocean_obc_update_reservoirs ocean_obc_update_reservoirs proc~ocean_obc_update_reservoirs->proc~get_clamped_tracer proc~run_continuity_chain run_continuity_chain proc~run_continuity_chain->proc~ocean_obc_fill_ghosts proc~run_continuity_chain->proc~ocean_obc_update_reservoirs proc~run_stage_split run_stage_split proc~run_stage_split->proc~run_continuity_chain proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split

Source Code

   pure function get_clamped_tracer(arr, it) result(val)
      !! Safe accessor: return clamped_tracer(it) or 0 if unallocated/out of range.
      real(wp), allocatable, intent(in) :: arr(:)
      integer, intent(in) :: it
      real(wp) :: val
      val = 0.0_wp
      if (allocated(arr)) then
         if (it <= size(arr)) val = arr(it)
      end if
   end function get_clamped_tracer