ocean_vdiff_bytes Function

private pure function ocean_vdiff_bytes(this) result(nbytes)

Counted allocatable footprint of the implicit vertical diffusion slot (0 when unallocated).

Type Bound

ocean_vdiff_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~ocean_vdiff_bytes~~CallsGraph proc~ocean_vdiff_bytes ocean_vdiff_t%ocean_vdiff_bytes interface~arr_bytes arr_bytes proc~ocean_vdiff_bytes->interface~arr_bytes proc~scratch_3d_buffer_bytes scratch_3d_buffer_t%scratch_3d_buffer_bytes proc~ocean_vdiff_bytes->proc~scratch_3d_buffer_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 proc~scratch_3d_buffer_bytes->interface~arr_bytes

Source Code

   pure function ocean_vdiff_bytes(this) result(nbytes)
      !! Counted allocatable footprint of the implicit vertical diffusion slot (0 when
      !! unallocated).
      class(ocean_vdiff_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = this%a_diag_t%bytes() &
               + this%b_diag_t%bytes() &
               + this%c_diag_t%bytes() &
               + this%rhs_t%bytes() &
               + this%a_diag_u%bytes() &
               + this%b_diag_u%bytes() &
               + this%c_diag_u%bytes() &
               + this%rhs_u%bytes() &
               + this%a_diag_v%bytes() &
               + this%b_diag_v%bytes() &
               + this%c_diag_v%bytes() &
               + this%rhs_v%bytes() &
               + this%kv_scalar_buf%bytes() &
               + arr_bytes(this%kv_bbl_u) + arr_bytes(this%kv_bbl_v) &
               + arr_bytes(this%bbl_thick_u) + arr_bytes(this%bbl_thick_v) &
               + arr_bytes(this%bbl_conc_t) + arr_bytes(this%bbl_conc_s)
   end function ocean_vdiff_bytes