JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Organized injection

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-04 22:49:14 +02:00
commit 6b72dbb108
6 changed files with 63 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/modules/init/moduleInput.f90
View file

@ -1431,7 +1431,6 @@ MODULE moduleInput
CALL config%info('inject', found, n_children = nInject)
ALLOCATE(injects(1:nInject))
nPartInj = 0
DO i = 1, nInject
WRITE(iString, '(i2)') i
object = 'inject(' // trim(iString) // ')'
@ -1442,12 +1441,6 @@ MODULE moduleInput
END DO
!Allocate array for injected particles
IF (nPartInj > 0) THEN
ALLOCATE(partInj(1:nPartInj))
END IF
END SUBROUTINE readInject
SUBROUTINE readAverage(config)