oh_counters_get Subroutine

public subroutine oh_counters_get(bt_group, bt_u_mid, ml_state, centre_2d, centre_3d, face_x_2d, face_x_3d, face_y_2d, face_y_3d)

Return all 9 semantic counters in one call.

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(out) :: bt_group

bt_group_2d call count
integer(kind=int64), intent(out) :: bt_u_mid

mid-substep bt_ubt face_x call count
integer(kind=int64), intent(out) :: ml_state

ml_state exchange call count
integer(kind=int64), intent(out) :: centre_2d

standalone centre_2d call count
integer(kind=int64), intent(out) :: centre_3d

standalone centre_3d call count
integer(kind=int64), intent(out) :: face_x_2d

standalone face_x_2d call count
integer(kind=int64), intent(out) :: face_x_3d

standalone face_x_3d call count
integer(kind=int64), intent(out) :: face_y_2d

standalone face_y_2d call count
integer(kind=int64), intent(out) :: face_y_3d

standalone face_y_3d call count

Source Code

   subroutine oh_counters_get(bt_group, bt_u_mid, ml_state, &
                              centre_2d, centre_3d, &
                              face_x_2d, face_x_3d, &
                              face_y_2d, face_y_3d)
      !! Return all 9 semantic counters in one call.
      integer(int64), intent(out) :: bt_group
         !! bt_group_2d call count
      integer(int64), intent(out) :: bt_u_mid
         !! mid-substep bt_ubt face_x call count
      integer(int64), intent(out) :: ml_state
         !! ml_state exchange call count
      integer(int64), intent(out) :: centre_2d
         !! standalone centre_2d call count
      integer(int64), intent(out) :: centre_3d
         !! standalone centre_3d call count
      integer(int64), intent(out) :: face_x_2d
         !! standalone face_x_2d call count
      integer(int64), intent(out) :: face_x_3d
         !! standalone face_x_3d call count
      integer(int64), intent(out) :: face_y_2d
         !! standalone face_y_2d call count
      integer(int64), intent(out) :: face_y_3d
         !! standalone face_y_3d call count

      bt_group = oh_cnt_bt_group
      bt_u_mid = oh_cnt_bt_u_mid
      ml_state = oh_cnt_ml_state
      centre_2d = oh_cnt_centre_2d
      centre_3d = oh_cnt_centre_3d
      face_x_2d = oh_cnt_face_x_2d
      face_x_3d = oh_cnt_face_x_3d
      face_y_2d = oh_cnt_face_y_2d
      face_y_3d = oh_cnt_face_y_3d
   end subroutine oh_counters_get