barotropic_workstate_bytes Function

private pure function barotropic_workstate_bytes(this) result(nbytes)

Counted allocatable footprint of the barotropic fast-loop work state (BTCL_u/v derived-type coeffs excluded) slot (0 when unallocated).

Type Bound

barotropic_workstate_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~barotropic_workstate_bytes~~CallsGraph proc~barotropic_workstate_bytes barotropic_workstate_t%barotropic_workstate_bytes interface~arr_bytes arr_bytes proc~barotropic_workstate_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_workstate_bytes~~CalledByGraph proc~barotropic_workstate_bytes barotropic_workstate_t%barotropic_workstate_bytes proc~ocean_dyn_bytes ocean_dyn_t%ocean_dyn_bytes proc~ocean_dyn_bytes->proc~barotropic_workstate_bytes

Source Code

   pure function barotropic_workstate_bytes(this) result(nbytes)
      !! Counted allocatable footprint of the barotropic fast-loop work state (BTCL_u/v derived-type coeffs excluded) slot (0 when
      !! unallocated).
      class(barotropic_workstate_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = arr_bytes(this%bt_eta) &
               + arr_bytes(this%bt_ubt) &
               + arr_bytes(this%cor_ref_u) &
               + arr_bytes(this%cor_ref_v) &
               + arr_bytes(this%bt_vbt) &
               + arr_bytes(this%bt_H_ref) &
               + arr_bytes(this%ubt_sum) &
               + arr_bytes(this%vbt_sum) &
               + arr_bytes(this%eta_sum) &
               + arr_bytes(this%uhbt_sum) &
               + arr_bytes(this%vhbt_sum) &
               + arr_bytes(this%bt_uhbt) &
               + arr_bytes(this%bt_vhbt) &
               + arr_bytes(this%bt_ubt_end) &
               + arr_bytes(this%bt_vbt_end) &
               + arr_bytes(this%bt_eta_end) &
               + arr_bytes(this%bt_zeta_corner) &
               + arr_bytes(this%bt_ke_centre) &
               + arr_bytes(this%bt_eta_new) &
               + arr_bytes(this%bt_ubt_prev) &
               + arr_bytes(this%bt_vbt_prev) &
               + arr_bytes(this%F_slow_u) &
               + arr_bytes(this%F_slow_v) &
               + arr_bytes(this%F_bt_u) &
               + arr_bytes(this%F_bt_v) &
               + arr_bytes(this%F_bt_u_fast) &
               + arr_bytes(this%F_bt_v_fast) &
               + arr_bytes(this%ubt_at_n) &
               + arr_bytes(this%vbt_at_n) &
               + arr_bytes(this%pbce) &
               + arr_bytes(this%gtot_E) &
               + arr_bytes(this%gtot_W) &
               + arr_bytes(this%gtot_N) &
               + arr_bytes(this%gtot_S) &
               + arr_bytes(this%e_anom) &
               + arr_bytes(this%eta_PF) &
               + arr_bytes(this%visc_rem_u) &
               + arr_bytes(this%visc_rem_v) &
               + arr_bytes(this%bt_rem_u) &
               + arr_bytes(this%bt_rem_v) &
               + arr_bytes(this%av_rem_u) &
               + arr_bytes(this%av_rem_v) &
               + arr_bytes(this%lwd_drag_u) &
               + arr_bytes(this%lwd_drag_v) &
               + arr_bytes(this%h_face_up_x) &
               + arr_bytes(this%h_face_up_y) &
               + arr_bytes(this%wd_wet_dyn) &
               + arr_bytes(this%wd_theta) &
               + arr_bytes(this%wd_flux_x) &
               + arr_bytes(this%wd_flux_y) &
               + arr_bytes(this%wd_open_u) &
               + arr_bytes(this%wd_open_v)
   end function barotropic_workstate_bytes