First commit for average scheme
New module defined that will take care of averaging the output in the nodes.
This commit is contained in:
parent
239552f715
commit
b2eb7c5622
6 changed files with 151 additions and 9 deletions
|
|
@ -1,4 +1,5 @@
|
|||
MODULE moduleSolver
|
||||
USE moduleAverage
|
||||
|
||||
!Generic type for pusher of particles
|
||||
TYPE, PUBLIC:: pusherGeneric
|
||||
|
|
@ -15,6 +16,7 @@ MODULE moduleSolver
|
|||
!Generic type for solver
|
||||
TYPE, PUBLIC:: solverGeneric
|
||||
TYPE(pusherGeneric), ALLOCATABLE:: pusher(:)
|
||||
TYPE(averageGeneric), ALLOCATABLE:: averageScheme
|
||||
PROCEDURE(solveEM_interface), POINTER, NOPASS:: solveEM => NULL()
|
||||
PROCEDURE(weightingScheme_interface), POINTER, NOPASS:: weightingScheme => NULL()
|
||||
CONTAINS
|
||||
|
|
@ -818,5 +820,19 @@ MODULE moduleSolver
|
|||
|
||||
END SUBROUTINE doOutput
|
||||
|
||||
SUBROUTINE doAverage(t)
|
||||
USE moduleAverage
|
||||
IMPLICIT NONE
|
||||
|
||||
INTEGER, INTENT(in):: t
|
||||
|
||||
IF (useAverage) THEN
|
||||
CALL averageScheme%updateAverage(t)
|
||||
|
||||
END IF
|
||||
|
||||
END SUBROUTINE doAverage
|
||||
|
||||
|
||||
END MODULE moduleSolver
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue