ensure_periodic_links Subroutine

private subroutine ensure_periodic_links(mesh, patch_id)

Validates that periodic patches have correctly established links.

Arguments

Type IntentOptional Attributes Name
type(mesh_t), intent(in) :: mesh
integer, intent(in) :: patch_id

Calls

proc~~ensure_periodic_links~~CallsGraph proc~ensure_periodic_links mod_bc::ensure_periodic_links proc~fatal_error mod_kinds::fatal_error proc~ensure_periodic_links->proc~fatal_error

Called by

proc~~ensure_periodic_links~~CalledByGraph proc~ensure_periodic_links mod_bc::ensure_periodic_links proc~build_bc_set mod_bc::build_bc_set proc~build_bc_set->proc~ensure_periodic_links program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~build_bc_set

Source Code

   subroutine ensure_periodic_links(mesh, patch_id)
      type(mesh_t), intent(in) :: mesh
      integer, intent(in) :: patch_id
      integer :: i, face_id

      do i = 1, mesh%patches(patch_id)%nfaces
         face_id = mesh%patches(patch_id)%face_ids(i)
         if (mesh%faces(face_id)%periodic_neighbor <= 0) then
            call fatal_error('bc', 'periodic patch '//trim(mesh%patches(patch_id)%name)// &
                             ' has no periodic.dat face links')
         end if
      end do
   end subroutine ensure_periodic_links