Adding a time step for collisions

A new option has been added in which MCC are computed with its own time
step.

If no time is provided, then the minimum time step of the simulation is
employed.
This commit is contained in:
Jorge Gonzalez 2021-06-15 10:40:13 +02:00
commit b6a7eb9ced
9 changed files with 88 additions and 53 deletions

View file

@ -42,7 +42,7 @@ MODULE moduleMeshOutput0D
USE moduleOutput
IMPLICIT NONE
CLASS(meshGeneric), INTENT(in):: self
CLASS(meshGeneric), INTENT(inout):: self
INTEGER, INTENT(in):: t
CHARACTER(:), ALLOCATABLE:: fileName
@ -56,7 +56,7 @@ MODULE moduleMeshOutput0D
END IF
OPEN(20, file = path // folder // '/' // fileName, position = 'append', action = 'write')
WRITE(20, "(ES20.6E3, I20)") REAL(t)*tauMin*ti_ref, mesh%vols(1)%obj%nColl
WRITE(20, "(ES20.6E3, I20)") REAL(t)*tauMin*ti_ref, self%vols(1)%obj%nColl
CLOSE(20)
END SUBROUTINE printColl0D

View file

@ -95,7 +95,7 @@ MODULE moduleMeshOutputGmsh2
USE moduleOutput
IMPLICIT NONE
CLASS(meshGeneric), INTENT(in):: self
CLASS(meshGeneric), INTENT(inout):: self
INTEGER, INTENT(in):: t
INTEGER:: numEdges
INTEGER:: n