oh_count_bt_group Subroutine

public subroutine oh_count_bt_group()

Increment the bt_group counter. Called once in ocean_halo_bt_group_2d bodies.

Arguments

None

Called by

proc~~oh_count_bt_group~~CalledByGraph proc~oh_count_bt_group oh_count_bt_group proc~ocean_halo_bt_group_2d ocean_halo_bt_group_2d proc~ocean_halo_bt_group_2d->proc~oh_count_bt_group proc~ocean_halo_bt_group_2d_wide ocean_halo_bt_group_2d_wide proc~ocean_halo_bt_group_2d_wide->proc~oh_count_bt_group proc~barotropic_substep_nonlinear barotropic_substep_nonlinear proc~barotropic_substep_nonlinear->proc~ocean_halo_bt_group_2d proc~barotropic_substep_nonlinear->proc~ocean_halo_bt_group_2d_wide proc~bt_wide_entry_exchange_impl bt_wide_entry_exchange_impl proc~bt_wide_entry_exchange_impl->proc~ocean_halo_bt_group_2d_wide proc~engine_enter_data engine_enter_data proc~engine_enter_data->proc~ocean_halo_bt_group_2d proc~engine_enter_data->proc~ocean_halo_bt_group_2d_wide proc~run_stage_split run_stage_split proc~run_stage_split->proc~ocean_halo_bt_group_2d proc~barotropic_substep_nonlinear_interior barotropic_substep_nonlinear_interior proc~run_stage_split->proc~barotropic_substep_nonlinear_interior proc~bt_wide_entry_exchange bt_wide_t%bt_wide_entry_exchange proc~run_stage_split->proc~bt_wide_entry_exchange proc~bt_wide_substep bt_wide_substep proc~run_stage_split->proc~bt_wide_substep proc~barotropic_substep_nonlinear_interior->proc~barotropic_substep_nonlinear proc~bt_wide_entry_exchange->proc~bt_wide_entry_exchange_impl proc~bt_wide_substep->proc~barotropic_substep_nonlinear proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_enter_data proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_enter_data proc~engine_step engine_step proc~driver_run_ocean->proc~engine_step proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~engine_step->proc~ocean_dyn_step_split proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step

Source Code

   subroutine oh_count_bt_group()
      !! Increment the bt_group counter.
      !! Called once in ocean_halo_bt_group_2d bodies.
      if (oh_suppress_depth > 0) return
      oh_cnt_bt_group = oh_cnt_bt_group + 1_int64
   end subroutine oh_count_bt_group