barotropic_state_bytes Function

private pure function barotropic_state_bytes(this) result(nbytes)

Counted allocatable footprint of the ocean C-grid barotropic slot.

Type Bound

barotropic_state_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~barotropic_state_bytes~~CallsGraph proc~barotropic_state_bytes barotropic_state_t%barotropic_state_bytes interface~arr_bytes arr_bytes proc~barotropic_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

Called by

proc~~barotropic_state_bytes~~CalledByGraph proc~barotropic_state_bytes barotropic_state_t%barotropic_state_bytes proc~ocean_state_bytes ocean_state_t%ocean_state_bytes proc~ocean_state_bytes->proc~barotropic_state_bytes proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~ocean_state_bytes proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   pure function barotropic_state_bytes(this) result(nbytes)
      !! Counted allocatable footprint of the ocean C-grid barotropic slot.
      class(barotropic_state_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = arr_bytes(this%h) + arr_bytes(this%b) &
               + arr_bytes(this%u_face_x) + arr_bytes(this%hu_face_x) &
               + arr_bytes(this%v_face_y) + arr_bytes(this%hv_face_y) &
               + arr_bytes(this%mass_flux_x) + arr_bytes(this%mass_flux_y) &
               + arr_bytes(this%flux_h) + arr_bytes(this%h0) &
               + arr_bytes(this%u_face_x0) + arr_bytes(this%v_face_y0)
   end function barotropic_state_bytes