Output of standard deviation
The output for the standard deviation (still Gmsh2 only) was added. Change in the output routines to reduce code repetition.
This commit is contained in:
parent
38d28887ff
commit
5509332980
6 changed files with 256 additions and 192 deletions
|
|
@ -828,12 +828,29 @@ MODULE moduleSolver
|
|||
|
||||
SUBROUTINE doAverage(t)
|
||||
USE moduleAverage
|
||||
USE moduleMesh
|
||||
IMPLICIT NONE
|
||||
|
||||
INTEGER, INTENT(in):: t
|
||||
INTEGER:: tAverage, n
|
||||
|
||||
|
||||
IF (useAverage) THEN
|
||||
CALL averageScheme%updateAverage(t)
|
||||
tAverage = t - tAverageStart
|
||||
|
||||
IF (tAverage == 1) THEN
|
||||
!First iteration in which average scheme is used
|
||||
DO n = 1, mesh%numNodes
|
||||
CALL averageScheme(n)%firstAverage(mesh%nodes(n)%obj%output)
|
||||
|
||||
END DO
|
||||
ELSEIF (tAverage > 1) THEN
|
||||
DO n = 1, mesh%numNodes
|
||||
CALL averageScheme(n)%updateAverage(mesh%nodes(n)%obj%output, tAverage)
|
||||
|
||||
END DO
|
||||
|
||||
END IF
|
||||
|
||||
END IF
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue