Searched refs:CornerDirection (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | CalvingFrontAdvance3D.F90 | 59 NodeVelo(3), NodeMelt(3), NodeNormal(3), ColumnNormal(3), CornerDirection(2),& local
646 CornerDirection(1) = Rot_y_coords(SecondIdx,i) - Rot_y_coords(CornerIdx,1)
647 CornerDirection(2) = Rot_z_coords(SecondIdx,i) - Rot_z_coords(CornerIdx,1)
649 CornerDirection = CornerDirection / (SUM(CornerDirection ** 2.0)**0.5)
651 IF(Debug) PRINT *,ParEnv % MyPE, 'CornerDirection ',i,': ',CornerDirection
653 IF( CornerDirection(2) < (-1.0_dp / (2.0_dp ** 0.5)) ) THEN
|