oh_count_bt_u_mid Subroutine

public subroutine oh_count_bt_u_mid()

Increment the bt_u_mid counter. Called at the mid-substep bt_ubt face_x exchange site.

Arguments

None

Called by

proc~~oh_count_bt_u_mid~~CalledByGraph proc~oh_count_bt_u_mid oh_count_bt_u_mid proc~barotropic_substep_nonlinear barotropic_substep_nonlinear proc~barotropic_substep_nonlinear->proc~oh_count_bt_u_mid proc~barotropic_substep_nonlinear_interior barotropic_substep_nonlinear_interior proc~barotropic_substep_nonlinear_interior->proc~barotropic_substep_nonlinear proc~bt_wide_substep bt_wide_substep proc~bt_wide_substep->proc~barotropic_substep_nonlinear proc~run_stage_split run_stage_split proc~run_stage_split->proc~barotropic_substep_nonlinear_interior proc~run_stage_split->proc~bt_wide_substep proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split

Source Code

   subroutine oh_count_bt_u_mid()
      !! Increment the bt_u_mid counter.
      !! Called at the mid-substep bt_ubt face_x exchange site.
      if (oh_suppress_depth > 0) return
      oh_cnt_bt_u_mid = oh_cnt_bt_u_mid + 1_int64
   end subroutine oh_count_bt_u_mid