OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
st_qaprint_ale_options_driver.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine st_qaprint_ale_options_driver

Function/Subroutine Documentation

◆ st_qaprint_ale_options_driver()

subroutine st_qaprint_ale_options_driver

Definition at line 30 of file st_qaprint_ale_options_driver.F.

31C============================================================================
32C M o d u l e s
33C-----------------------------------------------
34 USE qa_out_mod
35 USE alemuscl_mod , only : alemuscl_param
36 USE ale_mod
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C L o c a l V a r i a b l e s
43C-----------------------------------------------
44 INTEGER TEMP_INT,II
45 CHARACTER (LEN=255) :: VARNAME
46 DOUBLE PRECISION TEMP_DOUBLE
47C-----------------------------------------------
48
49 IF (myqakey('/ALE/MUSCL')) THEN
50
51 WRITE(varname,'(A)') 'BETA'
52 temp_double = alemuscl_param%BETA
53 CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
54
55 WRITE(varname,'(A)') 'IALEMUSCL'
56 temp_int = alemuscl_param%IALEMUSCL
57 CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
58
59 ENDIF
60
61
62 IF (myqakey('ALE')) THEN
63
64 !------------------------------------------------------------------------
65 ! ---ALE GRID
66 ! my_real ALPHA
67 ! my_real GAMMA
68 ! my_real VGX
69 ! my_real VGY
70 ! my_real VGZ
71 ! INTEGER NWALE_ENGINE ! read from Engine input file with /ALE/GRID/...
72 ! INTEGER NWALE_RST ! read from RESTART FILE
73 ! INTEGER NWALE
74
75 WRITE(varname,'(A)') 'ALE%GRID%ALPHA'
76 temp_double = ale%GRID%ALPHA
77 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
78
79 WRITE(varname,'(A)') 'ALE%GRID%GAMMA'
80 temp_double = ale%GRID%GAMMA
81 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
82
83 WRITE(varname,'(A)') 'ALE%GRID%VGX'
84 temp_double = ale%GRID%VGX
85 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
86
87 WRITE(varname,'(A)') 'ALE%GRID%VGY'
88 temp_double = ale%GRID%VGY
89 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
90
91 WRITE(varname,'(A)') 'ALE%GRID%VGZ'
92 temp_double = ale%GRID%VGZ
93 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
94
95 WRITE(varname,'(A)') 'ALE%GRID%NWALE_ENGINE'
96 temp_int = ale%GRID%NWALE_ENGINE
97 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
98
99 WRITE(varname,'(A)') 'ALE%GRID%NWALE_RST'
100 temp_int = ale%GRID%NWALE_RST
101 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
102
103 WRITE(varname,'(A)') 'ALE%GRID%NWALE'
104 temp_int = ale%GRID%NWALE
105 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
106
107 !------------------------------------------------------------------------
108 ! ---ALE UPWIND
109 ! my_real UPWMG
110 ! my_real UPWOG
111 ! my_real UPWSM
112 ! my_real CUPWM
113 ! my_real UPWMG2
114 ! my_real UPWOG2
115 ! my_real UPWSM2
116 ! INTEGER I_SUPG_ON_OFF
117 ! INTEGER UPWM
118 ! INTEGER UPW_UPDATE
119
120 WRITE(varname,'(A)') 'ALE%UPWIND%UPWMG'
121 temp_double = ale%UPWIND%UPWMG
122 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
123
124 WRITE(varname,'(A)') 'ALE%UPWIND%UPWOG'
125 temp_double = ale%UPWIND%UPWOG
126 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
127
128 WRITE(varname,'(A)') 'ALE%UPWIND%UPWSM'
129 temp_double = ale%UPWIND%UPWSM
130 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
131
132 WRITE(varname,'(A)') 'ALE%UPWIND%CUPWM'
133 temp_double = ale%UPWIND%CUPWM
134 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
135
136 WRITE(varname,'(A)') 'ALE%UPWIND%UPWMG2'
137 temp_double = ale%UPWIND%UPWMG2
138 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
139
140 WRITE(varname,'(A)') 'ALE%UPWIND%UPWOG2'
141 temp_double = ale%UPWIND%UPWOG2
142 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
143
144 WRITE(varname,'(A)') 'ALE%UPWIND%UPWSM2'
145 temp_double = ale%UPWIND%UPWSM2
146 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
147
148 WRITE(varname,'(A)') 'ALE%UPWIND%I_SUPG_ON_OFF'
149 temp_int = ale%UPWIND%I_SUPG_ON_OFF
150 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
151
152 WRITE(varname,'(A)') 'ALE%UPWIND%UPWM'
153 temp_int = ale%UPWIND%UPWM
154 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
155
156 WRITE(varname,'(A)') 'ALE%UPWIND%UPW_UPDATE'
157 temp_int = ale%UPWIND%UPW_UPDATE
158 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
159
160 !------------------------------------------------------------------------
161 ! ---ALE GLOBAL
162 ! INTEGER NALENOVS
163 ! INTEGER ICAA
164 ! INTEGER HLLC_LOWMACH
165 ! INTEGER INCOMP
166 ! INTEGER ISFINT
167 ! INTEGER I_DT_NODA_ALE_ON
168 ! INTEGER I_DT_NODA_ALE_ON_KEY
169 ! INTEGER IDT_ALE
170 ! LOGICAL IS_BOUNDARY_MATERIAL
171 ! INTEGER LCONV
172 ! INTEGER CODV(10)
173 ! INTEGER NVCONV
174 ! INTEGER SNALE
175 ! INTEGER SIELVS
176
177 WRITE(varname,'(A)') 'ALE%GLOBAL%NALENOVS'
178 temp_int = ale%GLOBAL%NALENOVS
179 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
180
181 WRITE(varname,'(A)') 'ALE%GLOBAL%ICAA'
182 temp_int = ale%GLOBAL%ICAA
183 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
184
185 WRITE(varname,'(A)') 'ALE%GLOBAL%HLLC_LOWMACH'
186 temp_int = ale%GLOBAL%HLLC_LOWMACH
187 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
188
189 WRITE(varname,'(A)') 'ALE%GLOBAL%INCOMP'
190 temp_int = ale%GLOBAL%INCOMP
191 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
192
193 WRITE(varname,'(A)') 'ALE%GLOBAL%ISFINT'
194 temp_int = ale%GLOBAL%ISFINT
195 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
196
197 WRITE(varname,'(A)') 'ALE%GLOBAL%I_DT_NODA_ALE_ON'
198 temp_int = ale%GLOBAL%I_DT_NODA_ALE_ON
199 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
200
201 WRITE(varname,'(A)') 'ALE%GLOBAL%I_DT_NODA_ALE_ON_KEY'
202 temp_int = ale%GLOBAL%I_DT_NODA_ALE_ON_KEY
203 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
204
205 WRITE(varname,'(A)') 'ALE%GLOBAL%IDT_ALE'
206 temp_int = ale%GLOBAL%IDT_ALE
207 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
208
209 WRITE(varname,'(A)') 'ALE%GLOBAL%IS_BOUNDARY_MATERIAL'
210 temp_int = 0
211 IF(ale%GLOBAL%IS_BOUNDARY_MATERIAL)temp_int = 1
212 IF(temp_int/=0) CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
213
214 WRITE(varname,'(A)') 'ALE%GLOBAL%LCONV'
215 temp_int = ale%GLOBAL%LCONV
216 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
217
218 DO ii=1,9
219 WRITE(varname,'(A)') 'ALE%GLOBAL%CODV- '
220 WRITE(varname(17:17),fmt='(I1)')ii
221 temp_int = ale%GLOBAL%CODV(ii)
222 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
223 ENDDO
224 WRITE(varname,'(A)') 'ALE%GLOBAL%CODV-10'
225 temp_int = ale%GLOBAL%CODV(10)
226 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
227
228
229 WRITE(varname,'(A)') 'ALE%GLOBAL%NVCONV'
230 temp_int = ale%GLOBAL%NVCONV
231 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
232
233 WRITE(varname,'(A)') 'ALE%GLOBAL%SNALE'
234 temp_int = ale%GLOBAL%SNALE
235 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
236
237 WRITE(varname,'(A)') 'ALE%GLOBAL%SIELVS'
238 temp_int = ale%GLOBAL%SIELVS
239 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
240
241 !------------------------------------------------------------------------
242 ! ---ALE GLOBAL
243 ! INTEGER IALESUB
244 ! INTEGER IFSUB
245 ! INTEGER IFSUBM
246 ! INTEGER NODSUBDT
247 ! my_real DT1SAVE
248 ! my_real DTFSUB
249 ! my_real DTMSUB
250
251 WRITE(varname,'(A)') 'ALE%SUB%IALESUB'
252 temp_int = ale%SUB%IALESUB
253 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
254
255 WRITE(varname,'(A)') 'ALE%SUB%IFSUB'
256 temp_int = ale%SUB%IFSUB
257 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
258
259 WRITE(varname,'(A)') 'ALE%SUB%IFSUBM'
260 temp_int = ale%SUB%IFSUBM
261 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
262
263 WRITE(varname,'(A)') 'ALE%SUB%NODSUBDT'
264 temp_int = ale%SUB%NODSUBDT
265 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
266
267 WRITE(varname,'(A)') 'ALE%SUB%DT1SAVE'
268 temp_double = ale%SUB%DT1SAVE
269 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
270
271 WRITE(varname,'(A)') 'ALE%SUB%DTFSUB'
272 temp_double = ale%SUB%DTFSUB
273 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
274
275 WRITE(varname,'(A)') 'ALE%SUB%DTMSUB'
276 temp_double = ale%SUB%DTMSUB
277 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
278
279 !------------------------------------------------------------------------
280 ! ---ALE GLOBAL
281 ! INTEGER NUM_NUVAR_MAT
282 ! INTEGER NUM_NUVAR_EOS
283
284 WRITE(varname,'(A)') 'ALE%REZON%NUM_NUVAR_MAT'
285 temp_int = ale%REZON%NUM_NUVAR_MAT
286 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
287
288 WRITE(varname,'(A)') 'ALE%REZON%NUM_NUVAR_EOS'
289 temp_int = ale%REZON%NUM_NUVAR_EOS
290 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
291
292 ENDIF
293
294C-----------------------------------------------------------------------
295 RETURN
ale_mod
Definition ale_mod.F:150
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:253
alemuscl_mod
Definition alemuscl_mod.F:55
alemuscl_mod::alemuscl_param
type(alemuscl_param_) alemuscl_param
Definition alemuscl_mod.F:76
qa_out_mod
Definition qa_out_mod.F:78
qa_out_mod::myqakey
logical function myqakey(value)
@purpose Check if a given value is part of the values set by env variable Useful to make a condition ...
Definition qa_out_mod.F:694
qa_out_mod::qaprint
subroutine qaprint(name, idin, value)
@purpose print one entry to QA extract file example of call for real print CALL QAPRINT('MY_LABEL',...
Definition qa_out_mod.F:390