Implementation of 0D dummy pusher and modifications to input parameters
to allow 0D runs.
This commit is contained in:
parent
d2b36632c9
commit
f1d74d954c
4 changed files with 29 additions and 1 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue