mem_log_computed_line Subroutine

public subroutine mem_log_computed_line(label, bytes)

Log one indented breakdown line for a component of the counted footprint (barotropic / layers / closures / …). Skipped when the component is empty so gated-off slots don’t clutter the report.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: label
integer(kind=int64), intent(in) :: bytes

Calls

proc~~mem_log_computed_line~~CallsGraph proc~mem_log_computed_line mem_log_computed_line info info proc~mem_log_computed_line->info proc~mem_format_bytes mem_format_bytes proc~mem_log_computed_line->proc~mem_format_bytes proc~two_dp two_dp proc~mem_format_bytes->proc~two_dp

Called by

proc~~mem_log_computed_line~~CalledByGraph proc~mem_log_computed_line mem_log_computed_line proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~mem_log_computed_line proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   subroutine mem_log_computed_line(label, bytes)
      !! Log one indented breakdown line for a component of the counted
      !! footprint (barotropic / layers / closures / …).  Skipped when the
      !! component is empty so gated-off slots don't clutter the report.
      character(len=*), intent(in) :: label
      integer(int64), intent(in) :: bytes

      if (bytes <= 0_int64) return
      call logger%info("    "//trim(label)//": "//mem_format_bytes(bytes))
   end subroutine mem_log_computed_line