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 174 of file th_surf_mod.F.

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

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

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