OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
wrcomm.F File Reference
#include "implicit_f.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "lagmult.inc"
#include "remesh_c.inc"
#include "scr18_c.inc"
#include "sms_c.inc"
#include "sphcom.inc"
#include "inter22.inc"
#include "tablen_c.inc"
#include "ddspmd_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine wrcomr (lmxvrea, lvarrea, tabvrea, ms_nd, p, inter_parameters, unitab, glob_therm, output)

Function/Subroutine Documentation

◆ wrcomr()

subroutine wrcomr ( integer lmxvrea,
integer lvarrea,
tabvrea,
ms_nd,
integer p,
type (parameters_), intent(in) inter_parameters,
type(unit_type_), intent(in) unitab,
type(glob_therm_), intent(in) glob_therm,
type(output_), intent(in) output )

Definition at line 29 of file wrcomm.F.

31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE anim_mod
35 USE outputs_mod
36 USE ale_mod
37 USE parameters_mod
38 USE unitab_mod
39 USE multimat_param_mod , ONLY : m51_iflg6
40 use glob_therm_mod
41 USE output_mod , ONLY : output_
42C-----------------------------------------------
43C I m p l i c i t T y p e s
44C-----------------------------------------------
45#include "implicit_f.inc"
46C-----------------------------------------------
47C D u m m y A r g u m e n t s
48C-----------------------------------------------
49 INTEGER LMXVREA,LVARREA, I
50 my_real tabvrea(*),ms_nd
51 TYPE(UNIT_TYPE_), INTENT(IN) :: UNITAB
52 TYPE(glob_therm_) ,intent(in) :: glob_therm
53 TYPE(OUTPUT_),INTENT(IN) :: OUTPUT
54C-----------------------------------------------
55C C o m m o n B l o c k s
56C-----------------------------------------------
57#include "com06_c.inc"
58#include "com08_c.inc"
59#include "lagmult.inc"
60#include "remesh_c.inc"
61#include "scr18_c.inc"
62#include "sms_c.inc"
63#include "sphcom.inc"
64#include "inter22.inc"
65C-----------------------------------------------
66#include "tablen_c.inc"
67#include "ddspmd_c.inc"
68C-----------------------------------------------
69C L o c a l V a r i a b l e s
70C-----------------------------------------------
71 INTEGER IVAR,J,RVARINT,P
72 TYPE (PARAMETERS_) ,INTENT(IN):: INTER_PARAMETERS
73C--------------------------------------
74C PREPARATION DES VARIABLES REELLES POUR ECRITURE SUR RFILE.
75C--------------------------------------
76C-----
77 DO IVAR=1,LMXVREA
78 TABVREA(IVAR)=ZERO
79 ENDDO
80C-----
81 TABVREA(1)=TT
82 TABVREA(2)=DT1
83 TABVREA(3)=DT2
84 TABVREA(4)=DT12
85 TABVREA(5)=DT2OLD
86 TABVREA(6)=TSTOP
87 TABVREA(7)=0 !no longer used
88 TABVREA(8)=THIS
89C-----
90 TABVREA(9)=0 !no longer used
91 TABVREA(10)=DTHIS
92 TABVREA(11)=DTFAC
93 TABVREA(12)=DTMIN
94 TABVREA(13)=VOLMIN
95 TABVREA(14)=OUTPUT%TH%WFEXT
96 TABVREA(15)=REINT
97 TABVREA(16)=0 !no longer used
98 TABVREA(17)=0 !no longer used
99 TABVREA(18)=DTANIM
100 TABVREA(19)=TANIM
101 TABVREA(20)=UREINT
102 TABVREA(21)=ECONTV
103 TABVREA(22)=EHOUR
104 TABVREA(23)=DTOUTP
105 TABVREA(24)=TOUTP
106 TABVREA(25)=T1S
107 TABVREA(26)=DT2S
108 TABVREA(27)=DT12S
109 TABVREA(28)=ZERO !old USREINT
110 TABVREA(29)=R2RFX1
111 TABVREA(30)=R2RFX2
112 TABVREA(31)=DAMPA
113 TABVREA(32)=DAMPB
114 TABVREA(33)=DAMPW
115C-----
116 TABVREA(34)=ALE%GRID%ALPHA
117 TABVREA(35)=ALE%GRID%GAMMA
118 TABVREA(36)=ALE%GRID%VGX
119 TABVREA(37)=ALE%GRID%VGY
120 TABVREA(38)=ALE%GRID%VGZ
121C-----
122 TABVREA(39)=SPASORT
123 TABVREA(40)=SPATRUE
124 DO I=1,9
125 TABVREA(40+I) = DTHIS1(I)
126 TABVREA(49+I) = THIS1(I)
127 ENDDO
128 TABVREA(59) = ZERO
129 TABVREA(60) = ZERO
130 TABVREA(61)=LAGM_TOL
131 TABVREA(62)=LAG_ALPH
132 TABVREA(63)=LAG_ALPHS
133 LVARREA=63
134C
135C---- debut check point restart
136C
137 DO I = 1, 42
138 TABVREA(63+I)=ZERO
139 ENDDO
140C
141C---- fin check point restart
142C
143 LVARREA= 105
144 TABVREA(106)=DWMAD
145 LVARREA=106
146 TABVREA(107)=UNITAB%FAC_MASS
147 TABVREA(108)=UNITAB%FAC_LENGTH
148 TABVREA(109)=UNITAB%FAC_TIME
149 TABVREA(110)=T1SH
150 TABVREA(111) = ALE%UPWIND%UPWSM
151 RVARINT = 111
152 RVARINT = RVARINT + 1
153 TABVREA(RVARINT) = TPSREF
154C THERMAL ANALYSIS
155 RVARINT = RVARINT + 1
156 TABVREA(RVARINT) = GLOB_THERM%HEAT_STORED
157 RVARINT = RVARINT + 1
158 TABVREA(RVARINT) = GLOB_THERM%HEAT_MECA
159 RVARINT = RVARINT + 1
160 TABVREA(RVARINT) = GLOB_THERM%HEAT_CONV
161 RVARINT = RVARINT + 1
162 TABVREA(RVARINT) = GLOB_THERM%HEAT_RADIA
163 RVARINT = RVARINT + 1
164 TABVREA(RVARINT) = GLOB_THERM%HEAT_FFLUX
165C TABLEAU SOL1TNL
166 DO I=0, MAXLAW
167 RVARINT = RVARINT + 1
168 TABVREA(RVARINT) = SOL1TNL(I,1)
169 RVARINT = RVARINT + 1
170 TABVREA(RVARINT) = SOL1TNL(I,2)
171 ENDDO
172C TABLEAU SOL8TNL
173 DO I=0, MAXLAW
174 RVARINT = RVARINT + 1
175 TABVREA(RVARINT) = SOL8TNL(I,1)
176 RVARINT = RVARINT + 1
177 TABVREA(RVARINT) = SOL8TNL(I,2)
178 ENDDO
179C TABLEAU TET4TNL
180 DO I=0, MAXLAW
181 RVARINT = RVARINT + 1
182 TABVREA(RVARINT) = TET4TNL(I,1)
183 ENDDO
184C TABLEAU TET10TNL
185 DO I=0, MAXLAW
186 RVARINT = RVARINT + 1
187 TABVREA(RVARINT) = TET10TNL(I,1)
188 ENDDO
189C TABLEAU SHTNL
190 DO I=0, MAXLAW
191 DO J=0,3
192 RVARINT = RVARINT + 1
193 TABVREA(RVARINT) = SHTNL(I,J,1)
194 RVARINT = RVARINT + 1
195 TABVREA(RVARINT) = SHTNL(I,J,2)
196 RVARINT = RVARINT + 1
197 TABVREA(RVARINT) = SHTNL(I,J,3)
198 ENDDO
199 ENDDO
200C TABLEAU TRITNL
201 DO I=0, MAXLAW
202 DO J=0,3
203 RVARINT = RVARINT + 1
204 TABVREA(RVARINT) = TRITNL(I,J,1)
205 RVARINT = RVARINT + 1
206 TABVREA(RVARINT) = TRITNL(I,J,2)
207 RVARINT = RVARINT + 1
208 TABVREA(RVARINT) = TRITNL(I,J,3)
209 ENDDO
210 ENDDO
211C TABLEAU SOLTELT
212 DO I=1,8
213 RVARINT = RVARINT + 1
214 TABVREA(RVARINT) = SOLTELT(I)
215 ENDDO
216 RVARINT = RVARINT + 1
217 TABVREA(RVARINT) = TET4TELT(1)
218 RVARINT = RVARINT + 1
219 TABVREA(RVARINT) = TET10TELT(1)
220C TABLEAU SHTELT
221 DO I=1,10
222 RVARINT = RVARINT + 1
223 TABVREA(RVARINT) = SHTELT(I)
224 ENDDO
225C TABLEAU TRITELT
226 DO I=1,10
227 RVARINT = RVARINT + 1
228 TABVREA(RVARINT) = TRITELT(I)
229 ENDDO
230C
231C .sta files
232 RVARINT = RVARINT + 1
233 TABVREA(RVARINT) = DTSTAT
234 RVARINT = RVARINT + 1
235 TABVREA(RVARINT) = TSTAT
236C .dynain files
237 RVARINT = RVARINT + 1
238 TABVREA(RVARINT) = ZERO !DTDYNAIN
239 RVARINT = RVARINT + 1
240 TABVREA(RVARINT) = ZERO !TDYNAIN
241C
242 RVARINT = RVARINT + 1
243 TABVREA(RVARINT) = TADMESH
244 RVARINT = RVARINT + 1
245 TABVREA(RVARINT) = DTADMESH
246C
247 RVARINT = RVARINT + 1
248 TABVREA(RVARINT) = DTFACS
249 RVARINT = RVARINT + 1
250 TABVREA(RVARINT) = DTMINS
251 RVARINT = RVARINT + 1
252 TABVREA(RVARINT) = TOL_SMS
253C abf files
254 DO I=1,10
255 RVARINT = RVARINT + 1
256 TABVREA(RVARINT) = TABFIS(I)
257 RVARINT = RVARINT + 1
258 TABVREA(RVARINT) = DTABF(I)
259 RVARINT = RVARINT + 1
260 TABVREA(RVARINT) = DTABFWR(I)
261 RVARINT = RVARINT + 1
262 TABVREA(RVARINT) = TABFWR(I)
263 ENDDO
264C
265C
266 RVARINT = RVARINT + 1
267 TABVREA(RVARINT) = RATIO22
268C
269 RVARINT = RVARINT + 1
270 TABVREA(RVARINT) = M51_IFLG6
271C
272 RVARINT = RVARINT + 1
273 TABVREA(RVARINT) = MS_ND ! MASS Middle nodes Itet=2
274C
275 RVARINT = RVARINT + 1
276 TABVREA(RVARINT) = ZERO ! DMSI2 Itet=2
277 RVARINT = RVARINT + 1
278 TABVREA(RVARINT) = ZERO ! MSI20 Itet=2
279C
280C---- debut check point restart
281C
282C DTFAC1(51) and DTMIN1(51)
283 RVARINT = RVARINT + 1
284 TABVREA(RVARINT) = ZERO
285 RVARINT = RVARINT + 1
286 TABVREA(RVARINT) = ZERO
287C DTFAC1(52) and DTMIN1(52)
288 RVARINT = RVARINT + 1
289 TABVREA(RVARINT) = ZERO
290 RVARINT = RVARINT + 1
291 TABVREA(RVARINT) = ZERO
292C
293 !DTFAC1(102) - DTMIN1(102) - /DT/ALE
294 RVARINT = RVARINT + 1
295 TABVREA(RVARINT) = ZERO
296 RVARINT = RVARINT + 1
297 TABVREA(RVARINT) = ZERO
298C
299 RVARINT = RVARINT + 1
300 TABVREA(RVARINT) = ZERO ! DTFACS_INT
301 RVARINT = RVARINT + 1
302 TABVREA(RVARINT) = ZERO ! DTMINS_INT
303C
304C BETATE_0, EINT_0,ENCIN_0,PIMAX ,PCMAX,PINT ,PCIN ,FILtr+8,NFIRST
305 DO I = 1, 16
306 RVARINT = RVARINT + 1
307 TABVREA(RVARINT) = ZERO
308 END DO
309C
310 RVARINT = RVARINT + 2
311C ENCONTD , ECONT_CUMU
312 RVARINT = RVARINT + 1
313 TABVREA(RVARINT) = ECONTD
314 RVARINT = RVARINT + 1
315 TABVREA(RVARINT) = ECONT_CUMU
316C INITIAL MASS FROM STARTER
317 RVARINT = RVARINT + 1
318 TABVREA(RVARINT) = MASS0_START
319 RVARINT = RVARINT + 1
320 TABVREA(RVARINT) = ZERO
321C ANIM FILES STOP TIME
322 RVARINT = RVARINT + 1
323 TABVREA(RVARINT) = TANIM_STOP
324C INITIAL COORDS OF SPH RESERVE
325 RVARINT = RVARINT + 1
326 TABVREA(RVARINT) = XI_RES
327 RVARINT = RVARINT + 1
328 TABVREA(RVARINT) = YI_RES
329 RVARINT = RVARINT + 1
330 TABVREA(RVARINT) = ZI_RES
331C
332 RVARINT = RVARINT + 1
333 TABVREA(RVARINT) = INTER_PARAMETERS%DT_STIFINT
334C KINETIC ENERGY
335 RVARINT = RVARINT + 1
336 TABVREA(RVARINT) = ZERO !ENCIN
337 RVARINT = RVARINT + 1
338 TABVREA(RVARINT) = ZERO !ENROT
339C
340C---- fin check point restart
341C
342 LVARREA=RVARINT
343C----------------------------------------------------------------
344C warning to radioss developers : Check LVARREA < LMXVREA
345C----------------------------------------------------------------
346 IF(LVARREA>LMXVREA)STOP 123
347C
348 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
ale_mod
Definition ale_mod.F:149
anim_mod
Definition anim_mod.F:96
outputs_mod
Definition outputs_mod.F:59
parameters_mod
Definition parameters_mod.F:49
unitab_mod
Definition unitab_mod.F:513