FLASH_MHD_Jet/Simulation_interface.F90 at master · yihaochen/FLASH_MHD_Jet · GitHub

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
!!****h* source/Simulation/Simulation_interface
!!
!! This is the header file for the Simulation module
!! that defines its public interfaces.
!!***
Module Simulation_interface
  implicit none
#include "constants.h"
  interface
     subroutine Simulation_defineDomain(initialDomain,boundaries,nblks)
       implicit none
       integer,dimension(MDIM),intent(IN) :: nblks
       integer,dimension(2*MDIM,nblks(IAXIS),nblks(JAXIS),nblks(KAXIS)),&
            intent(OUT)::boundaries
       logical,dimension(nblks(IAXIS),nblks(JAXIS),nblks(KAXIS)),&
            intent(OUT)::initialDomain
     end subroutine Simulation_defineDomain
  end interface

  interface
     subroutine Simulation_finalize()
       implicit none
     end subroutine Simulation_finalize
  end interface

  interface
     subroutine Simulation_getRenormGroup(mscalar,group)
       implicit none
       integer, intent(out) ::group
       integer, intent(in) :: mscalar
     end subroutine Simulation_getRenormGroup
  end interface

  interface
     subroutine Simulation_getVarnameType(varname,vartype)
       implicit none
       integer, intent(out) :: vartype
       integer, intent(in) :: varname
     end subroutine Simulation_getVarnameType
  end interface

  interface
     subroutine Simulation_initBlock(blockID)
       implicit none
       integer, intent(in) :: blockID
     end subroutine Simulation_initBlock
  end interface

  interface
     subroutine Simulation_init()
       implicit none
     end subroutine Simulation_init
  end interface

  interface
     subroutine Simulation_initParticleAttrib(restart)
       logical,intent(in) :: restart
     end subroutine Simulation_initParticleAttrib
  end interface

  interface
     subroutine Simulation_initSpecies()
       implicit none
     end subroutine Simulation_initSpecies
  end interface

  interface
     subroutine Simulation_mapIntToStr(key, str, block)
       implicit none
       integer, intent(in) :: key, block
       character(len=*), intent(inout) :: str
     end subroutine Simulation_mapIntToStr
  end interface

  interface
     subroutine Simulation_mapStrToInt(str,key,map)
       implicit none
       character(len=*), intent(in) :: str
       integer, intent(out) :: key
       integer, intent(in) :: map
     end subroutine Simulation_mapStrToInt
  end interface

  interface
     subroutine Simulation_sendOutputData()
       implicit none
     end subroutine Simulation_sendOutputData
  end interface

  interface
     subroutine Simulation_mapParticlesVar(part_key, var_key, var_type)
       implicit none
       integer, intent(in)  :: part_key
       integer, intent(out) :: var_key, var_type

     end subroutine Simulation_mapParticlesVar
  end interface

  interface
     subroutine Simulation_initRestart()
       implicit none

     end subroutine Simulation_initRestart
  end interface

  interface
     subroutine Simulation_customizeProlong(beforeOrAfter)
       implicit none
       integer, intent (IN) :: beforeOrAfter

     end subroutine Simulation_customizeProlong
  end interface

  interface
     subroutine Simulation_computeAnalytical(blockID,  tcurr)
      implicit none
      integer, intent (IN) :: blockID
      real   , intent (IN) :: tcurr
     end subroutine Simulation_computeAnalytical
  end interface

  interface
     subroutine Simulation_adjustEvolution(blkcnt, blklst, nstep, dt, stime)
       implicit none
       integer, intent(in) :: blkcnt
       integer, intent(in) :: blklst(blkcnt)
       integer, intent(in) :: nstep
       real, intent(in) :: dt
       real, intent(in) :: stime
     end subroutine Simulation_adjustEvolution
  end interface

  interface
     subroutine Simulation_freeUserArrays()
       implicit none

     end subroutine Simulation_freeUserArrays
  end interface

  interface
     subroutine Simulation_jetNozzleUpdate(nozzle, time, dt)
       implicit none
       integer, INTENT(in) :: nozzle
       real, INTENT(in) :: time, dt
     end subroutine Simulation_jetNozzleUpdate
  end interface

  interface
     subroutine Simulation_jiggle(nozzle, time, dt)
       implicit none
       integer, INTENT(in) :: nozzle
       real, INTENT(in) :: time, dt
     end subroutine Simulation_jiggle
  end interface

  interface
     subroutine Simulation_jiggleRead(nozzle, time, dt)
       implicit none
       integer, INTENT(in) :: nozzle
       real, INTENT(in) :: time, dt
     end subroutine Simulation_jiggleRead
  end interface

  interface
     subroutine Particles_addNew (count, pos, shock, success)
       integer, INTENT(in) :: count
       real, optional, dimension(MDIM,count), intent(IN):: pos
       real, optional, intent(IN):: shock
       logical, intent(OUT) :: success
     end subroutine Particles_addNew
  end interface

end Module Simulation_interface