diag_mask_bytes Function

private pure function diag_mask_bytes(this) result(nbytes)

Counted allocatable footprint of one region mask (0 when unallocated). weight is device-mapped by ocean_diag_enter_data_impl, so it must carry a term — see diag_var_bytes, which folds this in per masked diagnostic.

Type Bound

diag_mask_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~diag_mask_bytes~~CallsGraph proc~diag_mask_bytes diag_mask_t%diag_mask_bytes interface~arr_bytes arr_bytes proc~diag_mask_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

Called by

proc~~diag_mask_bytes~~CalledByGraph proc~diag_mask_bytes diag_mask_t%diag_mask_bytes proc~diag_var_bytes diag_var_t%diag_var_bytes proc~diag_var_bytes->proc~diag_mask_bytes proc~ocean_budgets_bytes ocean_budgets_t%ocean_budgets_bytes proc~ocean_budgets_bytes->proc~diag_mask_bytes proc~ocean_diag_bytes ocean_diag_t%ocean_diag_bytes proc~ocean_diag_bytes->proc~diag_var_bytes

Source Code

   pure function diag_mask_bytes(this) result(nbytes)
      !! Counted allocatable footprint of one region mask (0 when
      !! unallocated).  `weight` is device-mapped by
      !! `ocean_diag_enter_data_impl`, so it must carry a term — see
      !! `diag_var_bytes`, which folds this in per masked diagnostic.
      class(diag_mask_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = arr_bytes(this%weight)
   end function diag_mask_bytes