is_open_ish Function

private pure function is_open_ish(bc_type) result(res)

Returns .true. for edge types that need baroclinic velocity treatment.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: bc_type

Return Value logical


Called by

proc~~is_open_ish~~CalledByGraph proc~is_open_ish is_open_ish proc~fill_h_layer_ghosts fill_h_layer_ghosts proc~fill_h_layer_ghosts->proc~is_open_ish proc~fill_tracer_ghosts_meridional fill_tracer_ghosts_meridional proc~fill_tracer_ghosts_meridional->proc~is_open_ish proc~fill_tracer_ghosts_zerograd fill_tracer_ghosts_zerograd proc~fill_tracer_ghosts_zerograd->proc~is_open_ish proc~fill_tracer_ghosts_zonal fill_tracer_ghosts_zonal proc~fill_tracer_ghosts_zonal->proc~is_open_ish proc~ocean_obc_any_open_edge ocean_obc_any_open_edge proc~ocean_obc_any_open_edge->proc~is_open_ish proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~is_open_ish proc~ocean_obc_fill_ghosts ocean_obc_fill_ghosts proc~ocean_obc_fill_ghosts->proc~is_open_ish proc~ocean_obc_fill_ghosts->proc~fill_h_layer_ghosts proc~ocean_obc_fill_ghosts->proc~fill_tracer_ghosts_zerograd proc~ocean_obc_refill_ghost_ssh ocean_obc_refill_ghost_ssh proc~ocean_obc_refill_ghost_ssh->proc~is_open_ish proc~ocean_obc_refill_ghost_ssh->proc~fill_tracer_ghosts_zerograd proc~refill_h_ghost_scaled refill_h_ghost_scaled proc~ocean_obc_refill_ghost_ssh->proc~refill_h_ghost_scaled proc~refill_h_ghost_scaled->proc~is_open_ish proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~ocean_obc_refill_ghost_ssh proc~run_stage_split run_stage_split proc~ocean_dyn_step_split->proc~run_stage_split proc~run_continuity_chain run_continuity_chain proc~run_continuity_chain->proc~ocean_obc_any_open_edge proc~run_continuity_chain->proc~ocean_obc_fill_ghosts proc~run_stage_split->proc~ocean_obc_any_open_edge proc~run_stage_split->proc~ocean_obc_apply_baroclinic proc~run_stage_split->proc~run_continuity_chain proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   pure logical function is_open_ish(bc_type) result(res)
      !! Returns .true. for edge types that need baroclinic velocity treatment.
      integer, intent(in) :: bc_type
      res = (bc_type == OBC_OPEN .or. bc_type == OBC_TIDAL .or. &
             bc_type == OBC_CHAPMAN .or. bc_type == OBC_NESTED .or. &
             bc_type == OBC_CLAMPED)
   end function is_open_ish