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

Implementation of initial iteration.

Browse source 
An initial simulation time can be provided in the input file. This is
useful when restarting a simulation from a previous file. If no
initial time is provided, the value 0 is used.
This commit is contained in:
Jorge Gonzalez 2021-04-17 10:45:52 +02:00
commit dee860e37b
7 changed files with 38 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/moduleCaseParam.f90
View file

@ -1,7 +1,7 @@
!Problems of the case
MODULE moduleCaseParam
!Maximum number of iterations and number of species
INTEGER:: tmax
!Final and initial iterations
INTEGER:: tFinal, tInitial = 0
REAL(8), ALLOCATABLE:: tau(:)
REAL(8):: tauMin