oh_counters_format Function

public function oh_counters_format() result(str)

Return a one-line counter summary string.

Output format (single line, <= 240 chars): “halo exch: total=NNN bt_group=NN bt_u=NN ml=NN c2d=NN c3d=NN fx2=NN fx3=NN fy2=NN fy3=NN msgs=NN” msgs is the physical MPI ISEND count (not in total).

Arguments

None

Return Value character(len=256)

One-line summary (at most 240 chars; remainder is blank-padded).


Calls

proc~~oh_counters_format~~CallsGraph proc~oh_counters_format oh_counters_format proc~oh_counters_total oh_counters_total proc~oh_counters_format->proc~oh_counters_total to_string to_string proc~oh_counters_format->to_string

Called by

proc~~oh_counters_format~~CalledByGraph proc~oh_counters_format oh_counters_format proc~ocean_console_stats_report ocean_console_stats_report proc~ocean_console_stats_report->proc~oh_counters_format proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~ocean_console_stats_report proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   function oh_counters_format() result(str)
      !! Return a one-line counter summary string.
      !!
      !! Output format (single line, <= 240 chars):
      !!   "halo exch: total=NNN bt_group=NN bt_u=NN ml=NN c2d=NN c3d=NN fx2=NN fx3=NN fy2=NN fy3=NN msgs=NN"
      !! msgs is the physical MPI ISEND count (not in total).
      character(len=256) :: str
         !! One-line summary (at most 240 chars; remainder is blank-padded).

      str = "halo exch: total="//to_string(oh_counters_total())// &
            " bt_group="//to_string(oh_cnt_bt_group)// &
            " bt_u="//to_string(oh_cnt_bt_u_mid)// &
            " ml="//to_string(oh_cnt_ml_state)// &
            " c2d="//to_string(oh_cnt_centre_2d)// &
            " c3d="//to_string(oh_cnt_centre_3d)// &
            " fx2="//to_string(oh_cnt_face_x_2d)// &
            " fx3="//to_string(oh_cnt_face_x_3d)// &
            " fy2="//to_string(oh_cnt_face_y_2d)// &
            " fy3="//to_string(oh_cnt_face_y_3d)// &
            " msgs="//to_string(oh_cnt_msgs)
   end function oh_counters_format