open_ghost_fill_edge Function

private pure function open_ghost_fill_edge(bc_type) result(res)

Edge types that receive the open zero-gradient ghost fill (velocity here, η in the barotropic substep — kept identical on purpose). OPEN / TIDAL / CHAPMAN / CLAMPED; NOT NESTED (barotropic-wall path).

Arguments

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

Return Value logical


Called by

proc~~open_ghost_fill_edge~~CalledByGraph proc~open_ghost_fill_edge open_ghost_fill_edge proc~fill_uv_layer_ghosts fill_uv_layer_ghosts proc~fill_uv_layer_ghosts->proc~open_ghost_fill_edge proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~fill_uv_layer_ghosts proc~run_stage_split run_stage_split proc~run_stage_split->proc~ocean_obc_apply_baroclinic 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

   pure logical function open_ghost_fill_edge(bc_type) result(res)
      !! Edge types that receive the open zero-gradient ghost fill (velocity
      !! here, η in the barotropic substep — kept identical on purpose).
      !! OPEN / TIDAL / CHAPMAN / CLAMPED; NOT NESTED (barotropic-wall path).
      integer, intent(in) :: bc_type
      res = (bc_type == OBC_OPEN .or. bc_type == OBC_TIDAL .or. &
             bc_type == OBC_CHAPMAN .or. bc_type == OBC_CLAMPED)
   end function open_ghost_fill_edge