ocean_halo_is_decomposed Function

public pure function ocean_halo_is_decomposed() result(flag)

True iff a genuine multi-rank seam exists (initialised, px>1 or py>1).

Arguments

None

Return Value logical


Called by

proc~~ocean_halo_is_decomposed~~CalledByGraph proc~ocean_halo_is_decomposed ocean_halo_is_decomposed proc~barotropic_substep_nonlinear barotropic_substep_nonlinear proc~barotropic_substep_nonlinear->proc~ocean_halo_is_decomposed proc~configure_ocean_land_mask configure_ocean_land_mask proc~configure_ocean_land_mask->proc~ocean_halo_is_decomposed proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ocean_halo_is_decomposed proc~ice_transport_step ice_transport_step proc~engine_step_ice->proc~ice_transport_step proc~ice_transport_step->proc~ocean_halo_is_decomposed proc~ok_all_ranks ok_all_ranks proc~ice_transport_step->proc~ok_all_ranks proc~ok_all_ranks->proc~ocean_halo_is_decomposed 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~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step_ice proc~engine_setup engine_setup proc~driver_run_ocean->proc~engine_setup proc~engine_setup->proc~configure_ocean_land_mask proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step_ice proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup 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~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~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split

Source Code

   pure function ocean_halo_is_decomposed() result(flag)
      !! True iff a genuine multi-rank seam exists (initialised, px>1 or py>1).
      logical :: flag
      flag = oh_initialised .and. (oh_decomp%px > 1 .or. oh_decomp%py > 1)
   end function ocean_halo_is_decomposed