Searched defs:FindCrevassePaths (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | CalvingGeometry.F90 | 236 SUBROUTINE FindCrevassePaths(IsoMesh, OnFront, CrevassePaths, PathCount) subroutine
238 TYPE(Mesh_t), POINTER :: IsoMesh
239 LOGICAL, ALLOCATABLE :: OnFront(:)
240 TYPE(CrevassePath_t), POINTER :: CrevassePaths
241 INTEGER :: PathCount
243 TYPE(CrevassePath_t), POINTER :: CurrentPath
244 LOGICAL :: Found, Debug
245 INTEGER :: i,j,NodeCount,ElemCount, NextElem
246 INTEGER, ALLOCATABLE :: WorkElems(:), WorkNodes(:)
|