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 TYPE IS (t_ebcs_pres)
80 CALL qaprint('IPRES ',twf%ipres,0.0_8)
81 CALL qaprint('IRHO ',twf%irho,0.0_8)
82 CALL qaprint('IENER ',twf%iener,0.0_8)
83 CALL qaprint('IVX ',twf%ivx,0.0_8)
84 CALL qaprint('IVY ',twf%ivy,0.0_8)
85 CALL qaprint('IVZ ',twf%ivz,0.0_8)
86 tmpval = twf%c
87 CALL qaprint('C ', 0, tmpval)
88 tmpval = twf%pres
89 CALL qaprint('PRES ', 0, tmpval)
90 tmpval = twf%rho
91 CALL qaprint('RHO ', 0, tmpval)
92 tmpval = twf%ener
93 CALL qaprint('ENER ', 0, tmpval)
94 tmpval = twf%vx
95 CALL qaprint('VX ', 0, tmpval)
96 tmpval = twf%vy
97 CALL qaprint('vy ', 0, TMPVAL)
98 TMPVAL = twf%vz
99 CALL QAPRINT('vz ', 0, TMPVAL)
100 TMPVAL = twf%lcar
101 CALL QAPRINT('lcar ',0, TMPVAL)
102 TMPVAL = twf%r1
103 CALL QAPRINT('r1 ', 0, TMPVAL)
104 TMPVAL = twf%r2
105 CALL QAPRINT('r2 ', 0, TMPVAL)
106 TYPE IS (t_ebcs_valvin)
107 CALL QAPRINT('ipres ',twf%ipres,0.0_8)
108 CALL QAPRINT('irho ',twf%irho,0.0_8)
109 CALL QAPRINT('iener ',twf%iener,0.0_8)
110 TMPVAL = twf%c
111 CALL QAPRINT('c ', 0, TMPVAL)
112 TMPVAL = twf%pres
113 CALL QAPRINT('pres ', 0, TMPVAL)
114 TMPVAL = twf%rho
115 CALL QAPRINT('rho ', 0, TMPVAL)
116 TMPVAL = twf%ener
117 CALL QAPRINT('ener ', 0, TMPVAL)
118 TMPVAL = twf%lcar
119 CALL QAPRINT('lcar ', 0, TMPVAL)
120 TMPVAL = twf%r1
121 CALL QAPRINT('r1 ', 0, TMPVAL)
122 TMPVAL = twf%r2
123 CALL QAPRINT('r2 ', 0, TMPVAL)
124 TYPE IS (t_ebcs_valvout)
125 CALL QAPRINT('ipres ',twf%ipres,0.0_8)
126 CALL QAPRINT('irho ',twf%irho,0.0_8)
127 CALL QAPRINT('iener ',twf%iener,0.0_8)
128 TMPVAL = twf%c
129 CALL QAPRINT('c ', 0, TMPVAL)
130 TMPVAL = twf%pres
131 CALL QAPRINT('pres ', 0, TMPVAL)
132 TMPVAL = twf%rho
133 CALL QAPRINT('rho ', 0, TMPVAL)
134 TMPVAL = twf%ener
135 CALL QAPRINT('ener ', 0, TMPVAL)
136 TMPVAL = twf%lcar
137 CALL QAPRINT('lcar ', 0, TMPVAL)
138 TMPVAL = twf%r1
139 CALL QAPRINT('r1 ', 0, TMPVAL)
140 TMPVAL = twf%r2
141 CALL QAPRINT('r2 ', 0, TMPVAL)
142 TYPE IS (t_ebcs_gradp0)
143 CALL QAPRINT('ipres ',twf%ipres,0.0_8)
144 CALL QAPRINT('irho ',twf%irho,0.0_8)
145 CALL QAPRINT('iener ',twf%iener,0.0_8)
146 TMPVAL = twf%c
147 CALL QAPRINT('c ', 0, TMPVAL)
148 TMPVAL = twf%pres
149 CALL QAPRINT('pres ', 0, TMPVAL)
150 TMPVAL = twf%rho
151 CALL QAPRINT('rho ', 0, TMPVAL)
152 TMPVAL = twf%ener
153 CALL QAPRINT('ener ', 0, TMPVAL)
154 TMPVAL = twf%lcar
155 CALL QAPRINT('lcar ', 0, TMPVAL)
156 TMPVAL = twf%r1
157 CALL QAPRINT('r1 ', 0, TMPVAL)
158 TMPVAL = twf%r2
159 CALL QAPRINT('r2 ', 0, TMPVAL)
160 TYPE IS (t_ebcs_vel)
161 CALL QAPRINT('irho ',twf%irho,0.0_8)
162 CALL qaprint('IENER ',twf%iener,0.0_8)
163 CALL qaprint('IVX ',twf%ivx,0.0_8)
164 CALL qaprint('IVY ',twf%ivy,0.0_8)
165 CALL qaprint('IVZ ',twf%ivz,0.0_8)
166 tmpval = twf%c
167 CALL qaprint('C ', 0, tmpval)
168 tmpval = twf%rho
169 CALL qaprint('RHO ', 0, tmpval)
170 tmpval = twf%ener
171 CALL qaprint('ENER ', 0, tmpval)
172 tmpval = twf%vx
173 CALL qaprint('VX ', 0, tmpval)
174 tmpval = twf%vy
175 CALL qaprint('VY ', 0, tmpval)
176 tmpval = twf%vz
177 CALL qaprint('VZ ', 0, tmpval)
178 tmpval = twf%lcar
179 CALL qaprint('LCAR ', 0, tmpval)
180 tmpval = twf%r1
181 CALL qaprint('R1 ', 0, tmpval)
182 tmpval = twf%r2
183 CALL qaprint('R2 ', 0, tmpval)
184 TYPE IS (t_ebcs_normv)
185 CALL qaprint('IRHO ',twf%irho,0.0_8)
186 CALL qaprint('IENER ',twf%iener,0.0_8)
187 CALL qaprint('IVIMP ',twf%ivimp,0.0_8)
188 tmpval = twf%c
189 CALL qaprint('C ', 0, tmpval)
190 tmpval = twf%rho
191 CALL qaprint('RHO ', 0, tmpval)
192 tmpval = twf%ener
193 CALL qaprint('ENER ', 0, tmpval)
194 tmpval = twf%vimp
195 CALL qaprint('VIMP ',0, tmpval)
196 tmpval = twf%lcar
197 CALL qaprint('LCAR ', 0, tmpval)
198 tmpval = twf%r1
199 CALL qaprint('R1 ', 0, tmpval)
200 tmpval = twf%r2
201 CALL qaprint('R2 ', 0, tmpval)
202 TYPE IS (t_ebcs_inip)
203 tmpval = twf%c
204 CALL qaprint('C ', 0, tmpval)
205 tmpval = twf%rho
206 CALL qaprint('RHO ', 0, tmpval)
207 tmpval = twf%lcar
208 CALL qaprint('LCAR ',0, tmpval)
209 TYPE IS (t_ebcs_iniv)
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 TYPE IS (t_ebcs_monvol)
217 CALL qaprint('monvolid ',twf%monvol_id,0.0_8)
218 CALL QAPRINT('sensorid ',twf%sensor_id,0.0_8)
219 TYPE IS (t_ebcs_inlet)
220 CALL QAPRINT('formulation ',twf%fvm_inlet_data%formulation,0.0_8)
221 CALL QAPRINT('vector_velocity ',twf%fvm_inlet_data%vector_velocity,0.0_8)
222 DO JJ = 1, 3
223 IF (twf%fvm_inlet_data%func_vel(JJ) /= 0) THEN
224 WRITE(VARNAME,'(a,i0)') 'ivel', JJ
225 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_vel(JJ),0.0_8)
226 ENDIF
227 ENDDO
228 DO JJ = 1, 21
229 IF (twf%fvm_inlet_data%func_alpha(JJ) /= 0) THEN
230 WRITE(VARNAME,'(a,i0)') 'ialpha', JJ
231 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_alpha(JJ),0.0_8)
232 ENDIF
233 ENDDO
234 DO JJ = 1, 21
235 IF (twf%fvm_inlet_data%func_rho(JJ) /= 0) THEN
236 WRITE(VARNAME,'(a,i0)') 'irho', JJ
237 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_rho(JJ),0.0_8)
238 ENDIF
239 ENDDO
240 DO JJ = 1, 21
241 IF (twf%fvm_inlet_data%func_pres(JJ) /= 0) THEN
242 WRITE(VARNAME,'(a,i0)') 'ipres', JJ
243 CALL QAPRINT(TRIM(VARNAME),twf%fvm_inlet_data%func_pres(JJ),0.0_8)
244 ENDIF
245 ENDDO
246 DO JJ = 1, 3
247 TMPVAL = twf%fvm_inlet_data%val_vel(JJ)
248 IF (twf%fvm_inlet_data%val_vel(JJ) /= ZERO) THEN
249 WRITE(VARNAME,'(a,i0)') 'fvel', JJ
250 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
251 ENDIF
252 ENDDO
253 DO JJ = 1, 21
254 TMPVAL = twf%fvm_inlet_data%val_alpha(JJ)
255 IF (twf%fvm_inlet_data%val_alpha(JJ) /= ZERO) THEN
256 WRITE(VARNAME,'(a,i0)') 'falpha', JJ
257 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
258 ENDIF
259 ENDDO
260 DO JJ = 1, 21
261 TMPVAL = twf%fvm_inlet_data%val_rho(JJ)
262 IF (twf%fvm_inlet_data%val_rho(JJ) /= ZERO) THEN
263 WRITE(VARNAME,'(a,i0)') 'frho', JJ
264 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
265 ENDIF
266 ENDDO
267 DO JJ = 1, 21
268 TMPVAL = twf%fvm_inlet_data%val_pres(JJ)
269 IF (twf%fvm_inlet_data%val_pres(JJ) /= ZERO) THEN
270 WRITE(VARNAME,'(a,i0)') 'fpres', JJ
271 CALL QAPRINT(TRIM(VARNAME),0,TMPVAL)
272 ENDIF
273 ENDDO
274 TYPE IS (t_ebcs_fluxout)
275 !no parameter for this option
276 END SELECT
277 ENDDO
278 ENDIF
279C-----------------------------------------------
280 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:997
names_and_titles_mod::nchartitle
integer, parameter nchartitle
Definition names_and_titles_mod.F:1003
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