ocean_data_input_bytes Function

private pure function ocean_data_input_bytes(this) result(nbytes)

Counted allocatable footprint (0 when unallocated). Summed over every registered field’s f0/f1 — the t_axis is small (nt reals) and intentionally excluded, matching the house convention of counting device-resident footprint only.

Type Bound

ocean_data_input_t

Arguments

Type IntentOptional Attributes Name
class(ocean_data_input_t), intent(in) :: this

Return Value integer(kind=int64)


Calls

proc~~ocean_data_input_bytes~~CallsGraph proc~ocean_data_input_bytes ocean_data_input_t%ocean_data_input_bytes interface~arr_bytes arr_bytes proc~ocean_data_input_bytes->interface~arr_bytes proc~arr_bytes_i1 arr_bytes_i1 interface~arr_bytes->proc~arr_bytes_i1 proc~arr_bytes_i2 arr_bytes_i2 interface~arr_bytes->proc~arr_bytes_i2 proc~arr_bytes_i3 arr_bytes_i3 interface~arr_bytes->proc~arr_bytes_i3 proc~arr_bytes_l1 arr_bytes_l1 interface~arr_bytes->proc~arr_bytes_l1 proc~arr_bytes_l2 arr_bytes_l2 interface~arr_bytes->proc~arr_bytes_l2 proc~arr_bytes_l3 arr_bytes_l3 interface~arr_bytes->proc~arr_bytes_l3 proc~arr_bytes_r1 arr_bytes_r1 interface~arr_bytes->proc~arr_bytes_r1 proc~arr_bytes_r2 arr_bytes_r2 interface~arr_bytes->proc~arr_bytes_r2 proc~arr_bytes_r3 arr_bytes_r3 interface~arr_bytes->proc~arr_bytes_r3 proc~arr_bytes_r4 arr_bytes_r4 interface~arr_bytes->proc~arr_bytes_r4

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   pure function ocean_data_input_bytes(this) result(nbytes)
      !! Counted allocatable footprint (0 when unallocated).  Summed over
      !! every registered field's `f0`/`f1` — the `t_axis` is small
      !! (`nt` reals) and intentionally excluded, matching the house
      !! convention of counting device-resident footprint only.
      class(ocean_data_input_t), intent(in) :: this
      integer(int64) :: nbytes
      integer :: i
      nbytes = 0_int64
      if (.not. allocated(this%fields)) return
      do i = 1, this%nfields
         nbytes = nbytes + arr_bytes(this%fields(i)%f0) + arr_bytes(this%fields(i)%f1)
      end do
   end function ocean_data_input_bytes