ocean_surface_flux_bytes Function

private pure function ocean_surface_flux_bytes(this) result(nbytes)

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

Type Bound

ocean_surface_flux_t

Arguments

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

Return Value integer(kind=int64)


Calls

proc~~ocean_surface_flux_bytes~~CallsGraph proc~ocean_surface_flux_bytes ocean_surface_flux_t%ocean_surface_flux_bytes interface~arr_bytes arr_bytes proc~ocean_surface_flux_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

Source Code

   pure function ocean_surface_flux_bytes(this) result(nbytes)
      !! Counted allocatable footprint of the surface flux slot
      !! (0 when unallocated). One arr_bytes term per array — add a
      !! term here when a new allocatable joins the type.
      class(ocean_surface_flux_t), intent(in) :: this
      integer(int64) :: nbytes
      nbytes = arr_bytes(this%Q_heat) &
               + arr_bytes(this%Q_salt) &
               + arr_bytes(this%q_sw) + arr_bytes(this%q_lw) &
               + arr_bytes(this%q_lat) + arr_bytes(this%q_sens) &
               + arr_bytes(this%heat_added) &
               + arr_bytes(this%heat_cavity) &
               + arr_bytes(this%evap) + arr_bytes(this%lprec) &
               + arr_bytes(this%fprec) + arr_bytes(this%vprec) &
               + arr_bytes(this%lrunoff) + arr_bytes(this%frunoff) &
               + arr_bytes(this%seaice_melt) &
               + arr_bytes(this%heat_content_lprec) &
               + arr_bytes(this%heat_content_fprec) &
               + arr_bytes(this%heat_content_vprec) &
               + arr_bytes(this%heat_content_lrunoff) &
               + arr_bytes(this%heat_content_frunoff) &
               + arr_bytes(this%heat_content_seaice_melt) &
               + arr_bytes(this%heat_content_massin) &
               + arr_bytes(this%heat_content_massout) &
               + arr_bytes(this%salt_flux) &
               + arr_bytes(this%salt_cavity) &
               + arr_bytes(this%p_surf_atm) + arr_bytes(this%p_surf)
   end function ocean_surface_flux_bytes