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

Implementation of 0D grid for analysis of collisional operators.

Browse source 
Still need to add a 0D pusher and the corresponding input configuration
and documentation.
This commit is contained in:
Jorge Gonzalez 2021-04-12 18:54:33 +02:00
commit d2b36632c9
12 changed files with 339 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/modules/moduleOutput.f90
View file

@ -98,17 +98,14 @@ MODULE moduleOutput
OPEN(20, file = path // folder // '/' // fileName, action = 'write')
WRITE(20, "(A1, 8X, A1, 9X, A1, 6(A20))") "#","t","n","total","push","reset","collision","weighting","EMField"
WRITE(*, "(6X,A15,A)") "Creating file: ", fileName
ELSE
CLOSE(20)
END IF
OPEN(20, file = path // folder // '/' // fileName, position = 'append', action = 'write')
ELSE
OPEN(20, file = path // folder // '/' // fileName, position = 'append', action = 'write')
END IF
OPEN(20, file = path // folder // '/' // fileName, position = 'append', action = 'write')
WRITE (20, "(I10, I10, 7(ES20.6E3))") t, nPartOld, tStep, tPush, tReset, tColl, tCoul, tWeight, tEMField
CLOSE(20)