Home
last modified time | relevance | path

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

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DPhaseChangeSolve.F9090 TYPE(Variable_t), POINTER :: SurfSol, TempSol, HelpSol, HelpSol2 local
519 NULLIFY(HelpSol2)
522 HelpSol2 => VariableGet( Solver % Mesh % Variables, 'Taverage Slow' )
523 IF(.NOT. ASSOCIATED (HelpSol2)) THEN
528 HelpSol2 => VariableGet( Solver % Mesh % Variables, 'Taverage Slow' )
534 IF(ASSOCIATED(HelpSol2)) HelpSol2 % Values = TempSol % Values
537 IF(.NOT. ASSOCIATED(HelpSol2)) THEN
540HelpSol2 % Values = (1.0d0-AverageRelax2) * HelpSol2 % Values + AverageRelax2 * TempSol % Values
541 … HelpSol % Values = (1.0d0-AverageRelax) * HelpSol2 % Values + AverageRelax * TempSol % Values