The uspt1d subroutine is used to set the 1D-wall thermal module parameters.
Arguments of uspt1d
Local variables declaration
integer ifbt1d , ii , ifac
integer ilelt, nlelt
integer izone
integer, allocatable, dimension(:) :: lstelt
Allocation
Rereading of the restart file
iappel = 1 or 2
if (iappel.eq.1.or.iappel.eq.2) then
call
getfbr(
'3', nlelt, lstelt)
izone = izone + 1
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
ifbt1d = ifbt1d + 1
if (iappel.eq.2)
ifpt1d(ifbt1d) = ifac
enddo
endif
if (iappel.eq.1) then
endif
iappel = 2
if (iappel.eq.2) then
enddo
endif
iappel = 3
if (iappel.eq.3) then
if (
cdgfbo(2,ifac).le.0.025d0)
then
else
endif
xlmt1d(ii) = 31.5d0
enddo
endif
Deallocation