ocean_bc_state_bytes Function

private pure function ocean_bc_state_bytes(this) result(nbytes)

Counted allocatable footprint of the boundary state slot (0 when unallocated).

Type Bound

ocean_bc_state_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~ocean_bc_state_bytes~~CallsGraph proc~ocean_bc_state_bytes ocean_bc_state_t%ocean_bc_state_bytes interface~arr_bytes arr_bytes proc~ocean_bc_state_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

Source Code

   pure function ocean_bc_state_bytes(this) result(nbytes)
      !! Counted allocatable footprint of the boundary state slot (0 when
      !! unallocated).
      class(ocean_bc_state_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = arr_bytes(this%eta_old_west) &
               + arr_bytes(this%eta_old_east) &
               + arr_bytes(this%eta_old_south) &
               + arr_bytes(this%eta_old_north) &
               + arr_bytes(this%tres_west) &
               + arr_bytes(this%tres_east) &
               + arr_bytes(this%tres_south) &
               + arr_bytes(this%tres_north) &
               + arr_bytes(this%rx_west) &
               + arr_bytes(this%rx_east) &
               + arr_bytes(this%rx_south) &
               + arr_bytes(this%rx_north) &
               + arr_bytes(this%u_prev_west) &
               + arr_bytes(this%u_prev_east) &
               + arr_bytes(this%u_prev_south) &
               + arr_bytes(this%u_prev_north) &
               + arr_bytes(this%data_u_west) &
               + arr_bytes(this%data_u_east) &
               + arr_bytes(this%data_v_south) &
               + arr_bytes(this%data_v_north) &
               + arr_bytes(this%data_eta_west) &
               + arr_bytes(this%data_eta_east) &
               + arr_bytes(this%data_eta_south) &
               + arr_bytes(this%data_eta_north) &
               + arr_bytes(this%data_tracer_west) &
               + arr_bytes(this%data_tracer_east) &
               + arr_bytes(this%data_tracer_south) &
               + arr_bytes(this%data_tracer_north)
   end function ocean_bc_state_bytes