Home
last modified time | relevance | path

Searched refs:YBasal (Results 1 – 1 of 1) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DCalving.F901202 CBasalBasal, XSurf, YSurf, XBasal, YBasal, dx, dy,dxdy, dCSurf, & local
1243 YBasal = Mesh % Nodes % y(BasalNode)
1249 IF(YSurf .LE. YBasal) THEN
1256 dy = YSurf - YBasal !+ve
1265 yzerobasal = YBasal - (CBasalBasal/dbindexdy)
1271 xzerobasal = xbasal + ((yzerobasal - YBasal)*dxdy)