FLASH-X
Doxygen Generated Documentation From Interface Source Code
IncompNS_interface.F90
Go to the documentation of this file.
1!! NOTICE
2!! Copyright 2022 UChicago Argonne, LLC and contributors
3!!
4!! Licensed under the Apache License, Version 2.0 (the "License");
5!! you may not use this file except in compliance with the License.
6!!
7!! Unless required by applicable law or agreed to in writing, software
8!! distributed under the License is distributed on an "AS IS" BASIS,
9!! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
10!! See the License for the specific language governing permissions and
11!! limitations under the License.
12!!
19
21
22 implicit none
23
24#include "Simulation.h"
25#include "constants.h"
26
27 interface ! IncompNS_computeDt
28
29 subroutine IncompNS_computeDt(ins_mindt,ins_minloc)
30 implicit none
31 real, intent(INOUT) :: ins_mindt
32 integer, intent(INOUT) :: ins_minloc(5)
33 end subroutine IncompNS_computeDt
34
35 end interface
36
37
38 interface !IncompNS
39 subroutine IncompNS (timeEndAdv, dt, dtOld, sweepOrder)
40 implicit none
41 integer, INTENT(IN) :: sweepOrder
42 real, INTENT(IN) :: timeEndAdv, dt, dtOld
43 end subroutine IncompNS
44 end interface
45
46
47 interface !IncompNS_init
48 subroutine IncompNS_init (restart)
49 implicit none
50 logical, intent(IN) :: restart
51 end subroutine IncompNS_init
52 end interface
53
54
55 interface !IncompNS_finalize
56 subroutine IncompNS_finalize ()
57 implicit none
58 end subroutine IncompNS_finalize
59 end interface
60
61
62 interface !IncompNS_sendOutputData
64 implicit none
65 end subroutine IncompNS_sendOutputData
66 end interface
67
68 interface
69 subroutine IncompNS_stats()
70 implicit none
71 end subroutine
72 end interface
73
74 interface
75 subroutine IncompNS_statsIOExport(expt_flag)
76 implicit none
77 logical, intent(in) :: expt_flag
78 end subroutine IncompNS_statsIOExport
79 end interface
80
81 interface
83 end subroutine IncompNS_velomgToCenter
84 end interface
85
87 subroutine IncompNS_getScalarPropReal(name, value)
88 implicit none
89 character(len=*), intent(in) :: name
90 real, intent(out) :: value
91 end subroutine IncompNS_getScalarPropReal
92
93 subroutine IncompNS_getScalarPropLogical(name, value)
94 implicit none
95 character(len=*), intent(in) :: name
96 logical, intent(out) :: value
98 end interface
99
100 interface
101 subroutine IncompNS_getVectorProp(name, value)
102 implicit none
103 character(len=*), intent(in) :: name
104 real, dimension(MDIM), intent(out) :: value
105 end subroutine IncompNS_getVectorProp
106 end interface
107
108 interface
109 subroutine IncompNS_setVectorProp(name, value)
110 implicit none
111 character(len=*), intent(in) :: name
112 real, dimension(MDIM), intent(in) :: value
113 end subroutine IncompNS_setVectorProp
114 end interface
115
116 interface
117 subroutine IncompNS_getGridVar(name, value)
118 implicit none
119 character(len=*), intent(in) :: name
120 integer, intent(out) :: value
121 end subroutine IncompNS_getGridVar
122 end interface
123
124 interface
125 subroutine IncompNS_predictor(dt)
126 implicit none
127 real, INTENT(IN) :: dt
128 end subroutine IncompNS_predictor
129 end interface
130
131 interface
133 implicit none
134 real, INTENT(IN) :: dt
135 end subroutine IncompNS_solvePoisson
136 end interface
137
138 interface
139 subroutine IncompNS_corrector(dt)
140 implicit none
141 real, INTENT(IN) :: dt
142 end subroutine IncompNS_corrector
143 end interface
144
145 interface
147 implicit none
148 end subroutine IncompNS_divergence
149 end interface
150
151 interface
153 implicit none
154 end subroutine IncompNS_advection
155 end interface
156
157 interface
159 implicit none
160 end subroutine IncompNS_diffusion
161 end interface
162
163 interface
165 implicit none
166 end subroutine IncompNS_indicators
167 end interface
168
169 interface
171 implicit none
172 end subroutine IncompNS_reInitGridVars
173 end interface
174
175end Module IncompNS_interface
subroutine IncompNS_getScalarPropLogical(name, value)
subroutine IncompNS_getScalarPropReal(name, value)