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

Go to the source code of this file.

Functions/Subroutines

subroutine st_qaprint_ebcs (ebcs_tab)

Function/Subroutine Documentation

◆ st_qaprint_ebcs()

subroutine st_qaprint_ebcs ( type(t_ebcs_tab), intent(in), target ebcs_tab)

Definition at line 31 of file st_qaprint_ebcs.F.

32C-----------------------------------------------
33C M o d u l e s
34C-----------------------------------------------
35 USE qa_out_mod
36 USE ale_ebcs_mod
37 USE restmod
38 USE ebcs_mod
39 USE names_and_titles_mod , ONLY : nchartitle
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 TYPE(t_ebcs_tab), TARGET, INTENT(IN) :: EBCS_TAB
48C--------------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 LOGICAL :: OK_QA
52 CHARACTER (LEN=255) :: VARNAME
53 INTEGER :: II, JJ
54 DOUBLE PRECISION :: TMPVAL
55 CLASS(t_ebcs), POINTER :: EBCS
56 CHARACTER(LEN=NCHARTITLE) :: TITLE
57C-----------------------------------------------
58C S o u r c e L i n e s
59C-----------------------------------------------
60 IF(nebcs == 0)RETURN
61
62 ok_qa = myqakey('/EBCS')
63
64 IF (ok_qa) THEN
65 DO ii = 1, nebcs
66 ebcs => ebcs_tab%tab(ii)%poly
67 title = ebcs%title
68 IF(len_trim(title) /= 0)THEN
69 CALL qaprint(ebcs%title,0,0.0_8)
70 ELSE
71 CALL qaprint('EBCS_FAKE_TITLE',0,0.0_8)
72 ENDIF
73 CALL qaprint('EBCS ID ',ebcs%ebcs_id,0.0_8)
74 CALL qaprint('EBCS TYPE ',ebcs%type,0.0_8)
75 CALL qaprint('EBCS SURF_ID ',ebcs%surf_id,0.0_8)
76 CALL qaprint('EBCS NB_NODE ',ebcs%nb_node,0.0_8)
77 CALL qaprint('EBCS NB_ELEM ',ebcs%nb_elem,0.0_8)
78 SELECT TYPE (twf => ebcs)
79
80 TYPE IS (t_ebcs_pres)
81 CALL qaprint('IPRES ',twf%ipres,0.0_8)
82 CALL qaprint('IRHO ',twf%irho,0.0_8)
83 CALL qaprint('IENER ',twf%iener,0.0_8)
84 CALL qaprint('IVX ',twf%ivx,0.0_8)
85 CALL qaprint('IVY ',twf%ivy,0.0_8)
86 CALL qaprint('IVZ ',twf%ivz,0.0_8)
87 tmpval = twf%c
88 CALL qaprint('C ', 0, tmpval)
89 tmpval = twf%pres
90 CALL qaprint('PRES ', 0, tmpval)
91 tmpval = twf%rho
92 CALL qaprint('RHO ', 0, tmpval)
93 tmpval = twf%ener
94 CALL qaprint('ENER ', 0, tmpval)
95 tmpval = twf%vx
96 CALL qaprint('VX ', 0, tmpval)
97 tmpval = twf%vy
98 CALL qaprint('VY ', 0, tmpval)
99 tmpval = twf%vz
100 CALL qaprint('VZ ', 0, tmpval)
101 tmpval = twf%lcar
102 CALL qaprint('LCAR ',0, tmpval)
103 tmpval = twf%r1
104 CALL qaprint('R1 ', 0, tmpval)
105 tmpval = twf%r2
106 CALL qaprint('R2 ', 0, tmpval)
107
108 TYPE IS (t_ebcs_valvin)
109 CALL qaprint('IPRES ',twf%ipres,0.0_8)
110 CALL qaprint('IRHO ',twf%irho,0.0_8)
111 CALL qaprint('IENER ',twf%iener,0.0_8)
112 tmpval = twf%c
113 CALL qaprint('C ', 0, tmpval)
114 tmpval = twf%pres
115 CALL qaprint('PRES ', 0, tmpval)
116 tmpval = twf%rho
117 CALL qaprint('RHO ', 0, tmpval)
118 tmpval = twf%ener
119 CALL qaprint('ENER ', 0, tmpval)
120 tmpval = twf%lcar
121 CALL qaprint('LCAR ', 0, tmpval)
122 tmpval = twf%r1
123 CALL qaprint('R1 ', 0, tmpval)
124 tmpval = twf%r2
125 CALL qaprint('R2 ', 0, tmpval)
126
127 TYPE IS (t_ebcs_valvout)
128 CALL qaprint('IPRES ',twf%ipres,0.0_8)
129 CALL qaprint('IRHO ',twf%irho,0.0_8)
130 CALL qaprint('IENER ',twf%iener,0.0_8)
131 tmpval = twf%c
132 CALL qaprint('C ', 0, tmpval)
133 tmpval = twf%pres
134 CALL qaprint('PRES ', 0, tmpval)
135 tmpval = twf%rho
136 CALL qaprint('RHO ', 0, tmpval)
137 tmpval = twf%ener
138 CALL qaprint('ENER ', 0, tmpval)
139 tmpval = twf%lcar
140 CALL qaprint('LCAR ', 0, tmpval)
141 tmpval = twf%r1
142 CALL qaprint('R1 ', 0, tmpval)
143 tmpval = twf%r2
144 CALL qaprint('R2 ', 0, tmpval)
145
146 TYPE IS (t_ebcs_gradp0)
147 CALL qaprint('IPRES ',twf%ipres,0.0_8)
148 CALL qaprint('IRHO ',twf%irho,0.0_8)
149 CALL qaprint('IENER ',twf%iener,0.0_8)
150 tmpval = twf%c
151 CALL qaprint('C ', 0, tmpval)
152 tmpval = twf%pres
153 CALL qaprint('PRES ', 0, tmpval)
154 tmpval = twf%rho
155 CALL qaprint('RHO ', 0, tmpval)
156 tmpval = twf%ener
157 CALL qaprint('ENER ', 0, tmpval)
158 tmpval = twf%lcar
159 CALL qaprint('LCAR ', 0, tmpval)
160 tmpval = twf%r1
161 CALL qaprint('R1 ', 0, tmpval)
162 tmpval = twf%r2
163 CALL qaprint('R2 ', 0, tmpval)
164
165 TYPE IS (t_ebcs_vel)
166 CALL qaprint('IRHO ',twf%irho,0.0_8)
167 CALL qaprint('IENER ',twf%iener,0.0_8)
168 CALL qaprint('IVX ',twf%ivx,0.0_8)
169 CALL qaprint('IVY ',twf%ivy,0.0_8)
170 CALL qaprint('ivz ',twf%ivz,0.0_8)
171 TMPVAL = twf%c
172 CALL QAPRINT('c ', 0, TMPVAL)
173 TMPVAL = twf%rho
174 CALL QAPRINT('rho ', 0, TMPVAL)
175 TMPVAL = twf%ener
176 CALL QAPRINT('ener ', 0, TMPVAL)
177 TMPVAL = twf%vx
178 CALL QAPRINT('vx ', 0, TMPVAL)
179 TMPVAL = twf%vy
180 CALL QAPRINT('vy ', 0, TMPVAL)
181 TMPVAL = twf%vz
182 CALL QAPRINT('vz ', 0, TMPVAL)
183 TMPVAL = twf%lcar
184 CALL QAPRINT('lcar ', 0, TMPVAL)
185 TMPVAL = twf%r1
186 CALL QAPRINT('r1 ', 0, TMPVAL)
187 TMPVAL = twf%r2
188 CALL QAPRINT('r2 ', 0, TMPVAL)
189
190 TYPE IS (t_ebcs_normv)
191 CALL QAPRINT('irho ',twf%irho,0.0_8)
192 CALL QAPRINT('iener ',twf%iener,0.0_8)
193 CALL QAPRINT('ivimp ',twf%ivimp,0.0_8)
194 TMPVAL = twf%c
195 CALL QAPRINT('c ', 0, TMPVAL)
196 TMPVAL = twf%rho
197 CALL QAPRINT('rho ', 0, TMPVAL)
198 TMPVAL = twf%ener
199 CALL QAPRINT('ener ', 0, TMPVAL)
200 TMPVAL = twf%vimp
201 CALL QAPRINT('vimp ',0, TMPVAL)
202 TMPVAL = twf%lcar
203 CALL QAPRINT('lcar ', 0, TMPVAL)
204 TMPVAL = twf%r1
205 CALL QAPRINT('r1 ', 0, TMPVAL)
206 TMPVAL = twf%r2
207 CALL QAPRINT('r2 ', 0, TMPVAL)
208
209 TYPE IS (t_ebcs_inip)
210 TMPVAL = twf%c
211 CALL QAPRINT('c ', 0, TMPVAL)
212 TMPVAL = twf%rho
213 CALL QAPRINT('rho ', 0, TMPVAL)
214 TMPVAL = twf%lcar
215 CALL QAPRINT('lcar ',0, TMPVAL)
216
217 TYPE IS (t_ebcs_iniv)
218 TMPVAL = twf%c
219 CALL QAPRINT('c ', 0, TMPVAL)
220 TMPVAL = twf%rho
221 CALL QAPRINT('rho ', 0, TMPVAL)
222 TMPVAL = twf%lcar
223 CALL QAPRINT('lcar ', 0, TMPVAL)
224
225 TYPE IS (t_ebcs_monvol)
226 CALL QAPRINT('monvolid ',twf%monvol_id,0.0_8)
227 CALL QAPRINT('sensorid ',twf%sensor_id,0.0_8)
228
229 TYPE IS (t_ebcs_inlet)
230 CALL QAPRINT('formulation ',twf%fvm_inlet_data%formulation,0.0_8)
231 CALL QAPRINT('vector_velocity ',twf%fvm_inlet_data%vector_velocity,0.0_8)
232 DO JJ = 1, 3
233 IF (twf%fvm_inlet_data%func_vel(JJ) /= 0) THEN
234 WRITE(VARNAME,'(a,i0)') 'ivel', JJ
235 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_vel(JJ),0.0_8)
236 ENDIF
237 ENDDO
238 DO JJ = 1, 21
239 IF (twf%fvm_inlet_data%func_alpha(JJ) /= 0) THEN
240 WRITE(VARNAME,'(a,i0)') 'ialpha', JJ
241 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_alpha(JJ),0.0_8)
242 ENDIF
243 ENDDO
244 DO JJ = 1, 21
245 IF (twf%fvm_inlet_data%func_rho(JJ) /= 0) THEN
246 WRITE(VARNAME,'(a,i0)') 'irho', JJ
247 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_rho(JJ),0.0_8)
248 ENDIF
249 ENDDO
250 DO JJ = 1, 21
251 IF (twf%fvm_inlet_data%func_pres(JJ) /= 0) THEN
252 WRITE(VARNAME,'(a,i0)') 'ipres', JJ
253 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_pres(JJ),0.0_8)
254 ENDIF
255 ENDDO
256 DO JJ = 1, 3
257 TMPVAL = twf%fvm_inlet_data%val_vel(JJ)
258 IF (twf%fvm_inlet_data%val_vel(JJ) /= ZERO) THEN
259 WRITE(VARNAME,'(a,i0)') 'fvel', JJ
260 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
261 ENDIF
262 ENDDO
263 DO JJ = 1, 21
264 TMPVAL = twf%fvm_inlet_data%val_alpha(JJ)
265 IF (twf%fvm_inlet_data%val_alpha(JJ) /= ZERO) THEN
266 WRITE(VARNAME,'(a,i0)') 'falpha', JJ
267 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
268 ENDIF
269 ENDDO
270 DO JJ = 1, 21
271 TMPVAL = twf%fvm_inlet_data%val_rho(JJ)
272 IF (twf%fvm_inlet_data%val_rho(JJ) /= ZERO) THEN
273 WRITE(VARNAME,'(a,i0)') 'frho', JJ
274 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
275 ENDIF
276 ENDDO
277 DO JJ = 1, 21
278 TMPVAL = twf%fvm_inlet_data%val_pres(JJ)
279 IF (twf%fvm_inlet_data%val_pres(JJ) /= ZERO) THEN
280 WRITE(VARNAME,'(a,i0)') 'fpres', JJ
281 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
282 ENDIF
283 ENDDO
284
285 TYPE IS (t_ebcs_fluxout)
286 !no parameter for this option
287
288 TYPE IS (t_ebcs_nrf)
289 TMPVAL = twf%tcar_p
290 CALL QAPRINT('tcar_p ', 0, TMPVAL)
291 TMPVAL = twf%tcar_vf
292 CALL QAPRINT('tcar_vf ', 0, TMPVAL)
293
294 TYPE IS (t_ebcs_propellant)
295 IF (twf%sensor_id /= 0) THEN
296 WRITE(VARNAME,'(a)') 'sensor_id '
297 CALL QAPRINT(TRIM(VARNAME),twf%sensor_id ,0.0_8)
298 ENDIF
299 IF (twf%submat_id /= 0) THEN
300 WRITE(VARNAME,'(a)') 'submat_id '
301 CALL QAPRINT(TRIM(VARNAME),twf%submat_id ,0.0_8)
302 ENDIF
303 IF (twf%ienthalpy /= 0) THEN
304 WRITE(VARNAME,'(a)') 'ienthalpy '
305 CALL QAPRINT(TRIM(VARNAME),twf%ienthalpy ,0.0_8)
306 ENDIF
307 TMPVAL = twf%a
308 CALL QAPRINT('a ', 0, TMPVAL)
309 TMPVAL = twf%n
310 CALL QAPRINT('n ', 0, TMPVAL)
311 TMPVAL = twf%t
312 CALL QAPRINT('tburn ', 0, TMPVAL)
313 TMPVAL = twf%rho0s
314 CALL QAPRINT('rho0s ', 0, TMPVAL)
315 !---function f
316 IF (twf%ffunc_id /= 0) THEN
317 WRITE(VARNAME,'(a)') 'ffunc_id '
318 CALL QAPRINT(TRIM(VARNAME),twf%ffunc_id ,0.0_8)
319 ENDIF
320 IF (twf%fscaleX /= 0) THEN
321 TMPVAL = twf%fscaleX
322 CALL QAPRINT('fscalex ', 0, TMPVAL)
323 ENDIF
324 IF (twf%fscaleY /= zero) THEN
325 TMPVAL = twf%fscaleY
326 CALL QAPRINT('fscaley ', 0, TMPVAL)
327 ENDIF
328 !---function g
329 IF (twf%gfunc_id /= 0) THEN
330 WRITE(VARNAME,'(a)') 'gfunc_id '
331 CALL QAPRINT(TRIM(VARNAME),twf%gfunc_id ,0.0_8)
332 ENDIF
333 IF (twf%gscaleX /= 0) THEN
334 TMPVAL = twf%gscaleX
335 CALL QAPRINT('gscalex ', 0, TMPVAL)
336 ENDIF
337 IF (twf%gscaleY /= zero) THEN
338 TMPVAL = twf%gscaleY
339 CALL QAPRINT('gscaley ', 0, TMPVAL)
340 ENDIF
341 !---function h
342 IF (twf%hfunc_id /= 0) THEN
343 WRITE(VARNAME,'(a)') 'hfunc_id '
344 CALL QAPRINT(TRIM(VARNAME),twf%hfunc_id ,0.0_8)
345 ENDIF
346 IF (twf%hscaleX /= 0) THEN
347 TMPVAL = twf%hscaleX
348 CALL QAPRINT('hscalex ', 0, TMPVAL)
349 ENDIF
350 IF (twf%hscaleY /= zero) THEN
351 TMPVAL = twf%hscaleY
352 CALL QAPRINT('hscaley ', 0, TMPVAL)
353 ENDIF
354
355 END SELECT
356
357 ENDDO
358 ENDIF
359C-----------------------------------------------
360 RETURN
ale_ebcs_mod
Definition ale_ebcs_mod.F:40
ale_ebcs_mod::nebcs
integer nebcs
Definition ale_ebcs_mod.F:43
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1008
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