continuity_bytes Function

private pure function continuity_bytes(this) result(nbytes)

Counted allocatable footprint of the continuity-PPM slot (0 when unallocated). One arr_bytes term per array — add a term here when a new allocatable joins the type.

Type Bound

continuity_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~continuity_bytes~~CallsGraph proc~continuity_bytes continuity_t%continuity_bytes interface~arr_bytes arr_bytes proc~continuity_bytes->interface~arr_bytes proc~scratch_3d_buffer_bytes scratch_3d_buffer_t%scratch_3d_buffer_bytes proc~continuity_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 continuity_bytes(this) result(nbytes)
      !! Counted allocatable footprint of the continuity-PPM slot
      !! (0 when unallocated). One arr_bytes term per array — add a
      !! term here when a new allocatable joins the type.
      class(continuity_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = this%h_face_left_x%bytes() &
               + this%h_face_right_x%bytes() &
               + this%h_face_left_y%bytes() &
               + this%h_face_right_y%bytes() &
               + this%mt_h_new%bytes() &
               + this%mt_grounded%bytes() &
               + this%pd_theta%bytes() &
               + arr_bytes(this%uhtr) &
               + arr_bytes(this%vhtr) &
               + arr_bytes(this%hprev_work) &
               + arr_bytes(this%h_win_start) &
               + arr_bytes(this%uhr_x) &
               + arr_bytes(this%uhr_y) &
               + arr_bytes(this%uhh_x) &
               + arr_bytes(this%uhh_y) &
               + arr_bytes(this%tr_flux_x) &
               + arr_bytes(this%tr_flux_y) &
               + arr_bytes(this%tr_work) &
               + arr_bytes(this%pal) &
               + arr_bytes(this%par) &
               + arr_bytes(this%pa6)
   end function continuity_bytes