First commit for average scheme

New module defined that will take care of averaging the output in the
nodes.
This commit is contained in:
Jorge Gonzalez 2022-12-14 16:22:59 +01:00
commit b2eb7c5622
6 changed files with 151 additions and 9 deletions

View file

@ -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