OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
th_surf_mod Module Reference

OPTION /TH/SURF outputs of Pressure and Area needed Tabs. More...

Data Types

type  th_surf_

Functions/Subroutines

subroutine thsurf_write_restart (th_surf, iflag)
 Writing TH/SURF tabs in restart file.
subroutine thsurf_read_restart (th_surf)
 Reading TH/SURF tabs in restart file.

Variables

integer, parameter th_surf_num_channel = 6
 number of /TH/SURF channels : AREA, VELOCITY, MASSFLOW, P A, MASS

Detailed Description

OPTION /TH/SURF outputs of Pressure and Area needed Tabs.

Function/Subroutine Documentation

◆ thsurf_read_restart()

subroutine th_surf_mod::thsurf_read_restart ( type (th_surf_), intent(inout) th_surf)

Reading TH/SURF tabs in restart file.

Definition at line 175 of file th_surf_mod.F.

176C-----------------------------------------------
177C M o d u l e s
178C-----------------------------------------------
179 USE message_mod
180C-----------------------------------------------
181C I m p l i c i t T y p e s
182C-----------------------------------------------
183#include "implicit_f.inc"
184C-----------------------------------------------
185C D u m m y A r g u m e n t s
186C-----------------------------------------------
187 TYPE (TH_SURF_) , INTENT(INOUT) :: TH_SURF
188C-----------------------------------------------
189C READ TH/SURF tabs in restart file
190C-----------------------------------------------
191
192 CALL read_i_c(th_surf%IOK,1)
193
194 IF(th_surf%IOK > 0) THEN
195
196 CALL read_i_c(th_surf%NSURF,1)
197 CALL read_i_c(th_surf%PLOAD_FLAG,1)
198 CALL read_i_c(th_surf%LOADP_FLAG,1)
199
200 CALL read_i_c(th_surf%NSEGLOADP,1)
201 CALL read_i_c(th_surf%NSEGLOADPF,1)
202 CALL read_i_c(th_surf%NSEGLOADPB,1)
203
204 IF(th_surf%PLOAD_FLAG > 0) THEN
205 CALL read_i_c(th_surf%S_PLOAD_KSEGS,1)
206 IF(th_surf%S_PLOAD_KSEGS > 0) THEN
207 ALLOCATE(th_surf%PLOAD_KSEGS(th_surf%S_PLOAD_KSEGS))
208 CALL read_i_c(th_surf%PLOAD_KSEGS,th_surf%S_PLOAD_KSEGS)
209 ENDIF
210 CALL read_i_c(th_surf%S_PLOAD_SEGS,1)
211 IF(th_surf%S_PLOAD_SEGS > 0) THEN
212 ALLOCATE(th_surf%PLOAD_SEGS(th_surf%S_PLOAD_SEGS))
213 CALL read_i_c(th_surf%PLOAD_SEGS,th_surf%S_PLOAD_SEGS)
214 ENDIF
215 ENDIF
216
217 IF(th_surf%LOADP_FLAG > 0) THEN
218 CALL read_i_c(th_surf%S_LOADP_KSEGS,1)
219 IF(th_surf%S_LOADP_KSEGS > 0) THEN
220 ALLOCATE(th_surf%LOADP_KSEGS(th_surf%S_LOADP_KSEGS))
221 CALL read_i_c(th_surf%LOADP_KSEGS,th_surf%S_LOADP_KSEGS)
222 ENDIF
223 CALL read_i_c(th_surf%S_LOADP_SEGS,1)
224 IF(th_surf%S_LOADP_SEGS > 0) THEN
225 ALLOCATE(th_surf%LOADP_SEGS(th_surf%S_LOADP_SEGS))
226 CALL read_i_c(th_surf%LOADP_SEGS,th_surf%S_LOADP_SEGS)
227 ENDIF
228 ENDIF
229 ELSE ! initialization to 0
230 th_surf%NSURF = 0
231 th_surf%PLOAD_FLAG = 0
232 th_surf%LOADP_FLAG = 0
233 th_surf%NSEGLOADP = 0
234 th_surf%NSEGLOADPF = 0
235 th_surf%NSEGLOADPB = 0
236
237 ENDIF
238
239C-----------------------------------------------
240 RETURN
message_mod
Definition message_mod.F:1257
read_i_c
void read_i_c(int *w, int *len)
Definition write_routines.c:805

◆ thsurf_write_restart()

subroutine th_surf_mod::thsurf_write_restart ( type (th_surf_), intent(in) th_surf,
integer, intent(in) iflag )

Writing TH/SURF tabs in restart file.

Definition at line 114 of file th_surf_mod.F.

115
116C-----------------------------------------------
117C I m p l i c i t T y p e s
118C-----------------------------------------------
119#include "implicit_f.inc"
120C-----------------------------------------------
121C D u m m y A r g u m e n t s
122C-----------------------------------------------
123 TYPE (TH_SURF_) , INTENT(IN) :: TH_SURF
124 INTEGER , INTENT(IN) :: IFLAG
125C-----------------------------------------------
126C Writing TH/SURF tabs in restart file
127C-----------------------------------------------
128
129 CALL write_i_c(th_surf%IOK,1)
130
131 IF(th_surf%IOK > 0) THEN
132
133 CALL write_i_c(th_surf%NSURF,1)
134C
135 CALL write_i_c(th_surf%PLOAD_FLAG,1)
136 CALL write_i_c(th_surf%LOADP_FLAG,1)
137C
138 CALL write_i_c(th_surf%NSEGLOADP,1)
139 CALL write_i_c(th_surf%NSEGLOADPF,1)
140 CALL write_i_c(th_surf%NSEGLOADPB,1)
141C
142
143 IF(iflag == 2 ) THEN
144 IF(th_surf%PLOAD_FLAG > 0) THEN
145 CALL write_i_c(th_surf%S_PLOAD_KSEGS,1)
146 IF(th_surf%S_PLOAD_KSEGS > 0) CALL write_i_c(th_surf%PLOAD_KSEGS,th_surf%S_PLOAD_KSEGS)
147 CALL write_i_c(th_surf%S_PLOAD_SEGS,1)
148 IF(th_surf%S_PLOAD_SEGS > 0) CALL write_i_c(th_surf%PLOAD_SEGS,th_surf%S_PLOAD_SEGS)
149 ENDIF
150 IF(th_surf%LOADP_FLAG > 0) THEN
151 CALL write_i_c(th_surf%S_LOADP_KSEGS,1)
152 IF(th_surf%S_LOADP_KSEGS > 0) CALL write_i_c(th_surf%LOADP_KSEGS,th_surf%S_LOADP_KSEGS)
153 CALL write_i_c(th_surf%S_LOADP_SEGS,1)
154 IF(th_surf%S_LOADP_SEGS > 0 ) CALL write_i_c(th_surf%LOADP_SEGS,th_surf%S_LOADP_SEGS)
155 ENDIF
156 ENDIF
157
158 ENDIF
159
160C-----------------------------------------------
161 RETURN
write_i_c
void write_i_c(int *w, int *len)
Definition write_routines.c:645

Variable Documentation

◆ th_surf_num_channel

integer, parameter th_surf_mod::th_surf_num_channel = 6

number of /TH/SURF channels : AREA, VELOCITY, MASSFLOW, P A, MASS

Definition at line 100 of file th_surf_mod.F.

100 INTEGER, PARAMETER :: TH_SURF_NUM_CHANNEL = 6 !< number of /TH/SURF channels : AREA, VELOCITY, MASSFLOW, P A, MASS