57 TYPE(t_region
),
POINTER :: regions(:)
60 INTEGER :: ireg, ipatch
63 CHARACTER(10) :: keys(2)
64 CHARACTER(256) :: fname
67 INTEGER :: n1, n2, ioff, ijbeg, ijend, errorflag
71 REAL(RFREAL) :: vals(2)
78 global => regions(1)%global
81 'RFLO_ReadBcNoslipSection.F90' )
96 patch => regions(ireg)%levels(1)%patches(ipatch)
98 IF ((
patch%bcType>=bc_noslipwall .AND. &
99 patch%bcType<=bc_noslipwall+bc_range) .AND. &
100 regions(ireg)%procid==global%myProcid .AND. &
101 regions(ireg)%active==active)
THEN
103 IF (
patch%mixt%bcSet .eqv. .true.) &
104 CALL
errorstop( global,err_patch_overspec,__line__,
'Noslip boundary.' )
107 patch%mixt%nSwitches = 1
108 IF (
patch%bcCoupled == bc_external)
THEN
109 patch%mixt%distrib = bcdat_distrib
111 patch%mixt%distrib = distrib
114 ALLOCATE(
patch%mixt%switches(
patch%mixt%nSwitches), &
116 global%error = errorflag
117 IF (global%error /= 0) CALL
errorstop( global,err_allocate,__line__ )
120 IF (defined(1).eqv..true.)
THEN
121 patch%mixt%switches(bcswi_noslip_adiabat) = bcopt_adiabat
123 patch%mixt%switches(bcswi_noslip_adiabat) = bcopt_non_adiabat
125 CALL
errorstop( global,err_no_bcswitch,__line__,
'(adiabatic wall yes/no).' )
129 IF (
patch%mixt%switches(bcswi_noslip_adiabat) == &
130 bcopt_non_adiabat)
THEN
131 IF (
patch%mixt%distrib==bcdat_constant .AND. &
132 (.NOT. (defined(2).eqv..true.))) CALL
errorstop( global,err_bcval_missing,__line__ )
136 patch%mixt%bcSet = .true.
147 patch => regions(ireg)%levels(1)%patches(ipatch)
149 IF ((
patch%bcType>=bc_noslipwall .AND. &
150 patch%bcType<=bc_noslipwall+bc_range) .AND. &
151 regions(ireg)%procid==global%myProcid .AND. &
152 regions(ireg)%active==active)
THEN
153 switch =
patch%mixt%switches(bcswi_noslip_adiabat)
155 switch = bcopt_adiabat
158 IF ((
patch%bcType>=bc_noslipwall .AND. &
159 patch%bcType<=bc_noslipwall+bc_range) .AND. &
160 switch==bcopt_non_adiabat .AND. &
161 regions(ireg)%procid==global%myProcid .AND. &
162 regions(ireg)%active==active)
THEN
168 IF (
patch%mixt%distrib == bcdat_distrib)
THEN
172 ijbeg = indij( 0, 0,ioff)
173 ijend = indij(n1,n2,ioff)
178 ALLOCATE(
patch%mixt%vals(
patch%mixt%nData,ijbeg:ijend), &
180 global%error = errorflag
181 IF (global%error /= 0) CALL
errorstop( global,err_allocate,__line__ )
185 IF (
patch%mixt%distrib==bcdat_distrib .AND. &
186 patch%bcCoupled /=bc_external )
THEN
192 patch%mixt%vals(bcdat_noslip_twall,:) = vals(2)
subroutine rflo_readbcfromfile(global, fname, patch)
subroutine registerfunction(global, funName, fileName)
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE brbeg
subroutine readpatchsection(global, fileID, nvals, keys, vals, brbeg, brend, prbeg, prend, distrib, profType, fname, defined)
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE USE ModDataTypes USE prend
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE USE ModDataTypes USE prbeg
Vector_n min(const Array_n_const &v1, const Array_n_const &v2)
subroutine rflo_readbcnoslipsection(regions)
subroutine errorstop(global, errorCode, errorLine, addMessage)
subroutine deregisterfunction(global)