append_cell_face Subroutine

private subroutine append_cell_face(m, cell_id, face_id)

Helper to safely add a face to a cell's local face list.

Arguments

Type IntentOptional Attributes Name
type(mesh_t), intent(inout) :: m
integer, intent(in) :: cell_id
integer, intent(in) :: face_id

Calls

proc~~append_cell_face~~CallsGraph proc~append_cell_face mod_mesh_io::append_cell_face proc~fatal_error mod_kinds::fatal_error proc~append_cell_face->proc~fatal_error

Called by

proc~~append_cell_face~~CalledByGraph proc~append_cell_face mod_mesh_io::append_cell_face proc~build_cell_faces mod_mesh_io::build_cell_faces proc~build_cell_faces->proc~append_cell_face proc~read_native_mesh mod_mesh_io::read_native_mesh proc~read_native_mesh->proc~build_cell_faces program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~read_native_mesh

Source Code

   subroutine append_cell_face(m, cell_id, face_id)
      type(mesh_t), intent(inout) :: m
      integer, intent(in) :: cell_id
      integer, intent(in) :: face_id

      if (m%ncell_faces(cell_id) >= max_cell_faces) then
         call fatal_error('mesh_io', 'cell has more than six faces')
      end if

      m%ncell_faces(cell_id) = m%ncell_faces(cell_id) + 1
      m%cell_faces(m%ncell_faces(cell_id), cell_id) = face_id
   end subroutine append_cell_face