forked from wkliao/S3D-IO
-
Notifications
You must be signed in to change notification settings - Fork 0
/
runtime_m.f90
26 lines (19 loc) · 940 Bytes
/
runtime_m.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
!
! Copyright (C) 2013, Northwestern University
! See COPYRIGHT notice in top-level directory.
!
module runtime_m
implicit none
integer i_time !time step counter
integer method ! 0: blocking APIs, 1: nonblocking
logical restart ! new run or restart switch:
! .FALSE. for new run, .TRUE. for restart
integer i_time_end !ending time step
logical io_one_species_at_a_time ! whether read/write one species at a time
double precision time !current time
double precision tstep !time step (non-dimensional)
double precision time_save !time at which to write savefiles (seconds)
double precision time_save_inc !increment by which to write savefiles (seconds)
double precision time_ref !reference time (s)
character(len=20) run_title !unique title of run
end module runtime_m