Implementation of 0D dummy pusher and modifications to input parameters

to allow 0D runs.
This commit is contained in:
Jorge Gonzalez 2021-04-13 17:40:33 +02:00
commit f1d74d954c
4 changed files with 29 additions and 1 deletions

View file

@ -31,6 +31,7 @@ MODULE moduleMesh0D
!NODE FUNCTIONS
!Init node
SUBROUTINE initNode0D(self, n, r)
USE moduleSpecies
IMPLICIT NONE
CLASS(meshNode0D), INTENT(out):: self
@ -39,6 +40,8 @@ MODULE moduleMesh0D
self%n = n
ALLOCATE(self%output(1:nSpecies))
END SUBROUTINE initNode0D
!Get node coordinates
@ -81,6 +84,10 @@ MODULE moduleMesh0D
CLASS(meshVol0D), INTENT(in):: self
INTEGER, ALLOCATABLE:: n(:)
ALLOCATE(n(1:1))
n = self%n1%n
END FUNCTION getNodes0D
FUNCTION randPos0D(self) RESULT(r)