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

Implementation of different time steps per species.

Browse source
This commit is contained in:
Jorge Gonzalez 2020-12-01 17:37:22 +01:00
commit a5d5ceb53d
8 changed files with 80 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/modules/moduleMeshCylRead.f95
View file

@ -602,7 +602,7 @@ MODULE moduleMeshCylRead
CHARACTER(:), ALLOCATABLE:: fileName
CHARACTER (LEN=6):: tstring !TODO: Review to allow any number of iterations
time = DBLE(t)*tau*ti_ref
time = DBLE(t)*tauMin*ti_ref
DO i = 1, nSpecies
WRITE(tstring, '(I6.6)') t
@ -686,7 +686,7 @@ MODULE moduleMeshCylRead
IF (collOutput) THEN
time = DBLE(t)*tau*ti_ref
time = DBLE(t)*tauMin*ti_ref
WRITE(tstring, '(I6.6)') t
fileName='OUTPUT_' // tstring// '_Collisions.msh'
@ -730,7 +730,7 @@ MODULE moduleMeshCylRead
REAL(8):: xi(1:3)
IF (emOutput) THEN
time = DBLE(t)*tau*ti_ref
time = DBLE(t)*tauMin*ti_ref
WRITE(tstring, '(I6.6)') t
fileName='OUTPUT_' // tstring// '_EMField.msh'