OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
st_qaprint_ale_options_driver.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| st_qaprint_ale_options_driver ../starter/source/output/qaprint/st_qaprint_ale_options_driver.F
25!||--- called by ------------------------------------------------------
26!|| st_qaprint_driver ../starter/source/output/qaprint/st_qaprint_driver.F
27!||--- calls -----------------------------------------------------
28!||--- uses -----------------------------------------------------
29!||====================================================================
30 SUBROUTINE st_qaprint_ale_options_driver
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 INCOMP
165 ! INTEGER ISFINT
166 ! INTEGER I_DT_NODA_ALE_ON
167 ! INTEGER I_DT_NODA_ALE_ON_KEY
168 ! INTEGER IDT_ALE
169 ! LOGICAL IS_BOUNDARY_MATERIAL
170 ! INTEGER LCONV
171 ! INTEGER CODV(10)
172 ! INTEGER NVCONV
173 ! INTEGER SNALE
174 ! INTEGER SIELVS
175
176 WRITE(varname,'(A)') 'ALE%GLOBAL%NALENOVS'
177 temp_int = ale%GLOBAL%NALENOVS
178 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
179
180 WRITE(varname,'(A)') 'ALE%GLOBAL%ICAA'
181 temp_int = ale%GLOBAL%ICAA
182 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
183
184 WRITE(varname,'(A)') 'ALE%GLOBAL%INCOMP'
185 temp_int = ale%GLOBAL%INCOMP
186 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
187
188 WRITE(varname,'(A)') 'ALE%GLOBAL%ISFINT'
189 temp_int = ale%GLOBAL%ISFINT
190 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
191
192 WRITE(varname,'(A)') 'ALE%GLOBAL%I_DT_NODA_ALE_ON'
193 temp_int = ale%GLOBAL%I_DT_NODA_ALE_ON
194 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
195
196 WRITE(varname,'(A)') 'ALE%GLOBAL%I_DT_NODA_ALE_ON_KEY'
197 temp_int = ale%GLOBAL%I_DT_NODA_ALE_ON_KEY
198 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
199
200 WRITE(varname,'(A)') 'ALE%GLOBAL%IDT_ALE'
201 temp_int = ale%GLOBAL%IDT_ALE
202 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
203
204 WRITE(varname,'(A)') 'ALE%GLOBAL%IS_BOUNDARY_MATERIAL'
205 temp_int = 0
206 IF(ale%GLOBAL%IS_BOUNDARY_MATERIAL)temp_int = 1
207 IF(temp_int/=0) CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
208
209 WRITE(varname,'(A)') 'ALE%GLOBAL%LCONV'
210 temp_int = ale%GLOBAL%LCONV
211 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
212
213 DO ii=1,9
214 WRITE(varname,'(A)') 'ALE%GLOBAL%CODV- '
215 WRITE(varname(17:17),fmt='(I1)')ii
216 temp_int = ale%GLOBAL%CODV(ii)
217 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
218 ENDDO
219 WRITE(varname,'(A)') 'ALE%GLOBAL%CODV-10'
220 temp_int = ale%GLOBAL%CODV(10)
221 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
222
223
224 WRITE(varname,'(A)') 'ALE%GLOBAL%NVCONV'
225 temp_int = ale%GLOBAL%NVCONV
226 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
227
228 WRITE(varname,'(A)') 'ALE%GLOBAL%SNALE'
229 temp_int = ale%GLOBAL%SNALE
230 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
231
232 WRITE(varname,'(A)') 'ALE%GLOBAL%SIELVS'
233 temp_int = ale%GLOBAL%SIELVS
234 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
235
236 !------------------------------------------------------------------------
237 ! ---ALE GLOBAL
238 ! INTEGER IALESUB
239 ! INTEGER IFSUB
240 ! INTEGER IFSUBM
241 ! INTEGER NODSUBDT
242 ! my_real DT1SAVE
243 ! my_real DTFSUB
244 ! my_real DTMSUB
245
246 WRITE(varname,'(A)') 'ALE%SUB%IALESUB'
247 temp_int = ale%SUB%IALESUB
248 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
249
250 WRITE(varname,'(A)') 'ALE%SUB%IFSUB'
251 temp_int = ale%SUB%IFSUB
252 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
253
254 WRITE(varname,'(A)') 'ALE%SUB%IFSUBM'
255 temp_int = ale%SUB%IFSUBM
256 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
257
258 WRITE(varname,'(A)') 'ALE%SUB%NODSUBDT'
259 temp_int = ale%SUB%NODSUBDT
260 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
261
262 WRITE(varname,'(A)') 'ALE%SUB%DT1SAVE'
263 temp_double = ale%SUB%DT1SAVE
264 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
265
266 WRITE(varname,'(A)') 'ALE%SUB%DTFSUB'
267 temp_double = ale%SUB%DTFSUB
268 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
269
270 WRITE(varname,'(A)') 'ALE%SUB%DTMSUB'
271 temp_double = ale%SUB%DTMSUB
272 IF(temp_double/=zero)CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
273
274 !------------------------------------------------------------------------
275 ! ---ALE GLOBAL
276 ! INTEGER NUM_NUVAR_MAT
277 ! INTEGER NUM_NUVAR_EOS
278
279 WRITE(varname,'(A)') 'ALE%REZON%NUM_NUVAR_MAT'
280 temp_int = ale%REZON%NUM_NUVAR_MAT
281 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
282
283 WRITE(varname,'(A)') 'ALE%REZON%NUM_NUVAR_EOS'
284 temp_int = ale%REZON%NUM_NUVAR_EOS
285 IF(temp_int/=0)CALL qaprint(varname(1:len_trim(varname)),temp_int,0.0_8)
286
287 ENDIF
288
289C-----------------------------------------------------------------------
290 RETURN
291 END
292
ale_mod
Definition ale_mod.F:149
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:249
alemuscl_mod
Definition alemuscl_mod.F:54
alemuscl_mod::alemuscl_param
type(alemuscl_param_) alemuscl_param
Definition alemuscl_mod.F:75
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
st_qaprint_ale_options_driver
subroutine st_qaprint_ale_options_driver
Definition st_qaprint_ale_options_driver.F:31