!------------------------------------------------------------------------------- ! Code_Saturne version 4.0.0-rc2 ! -------------------------- ! This file is part of Code_Saturne, a general-purpose CFD tool. ! ! Copyright (C) 1998-2015 EDF S.A. ! ! This program is free software; you can redistribute it and/or modify it under ! the terms of the GNU General Public License as published by the Free Software ! Foundation; either version 2 of the License, or (at your option) any later ! version. ! ! This program is distributed in the hope that it will be useful, but WITHOUT ! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ! FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ! details. ! ! You should have received a copy of the GNU General Public License along with ! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin ! Street, Fifth Floor, Boston, MA 02110-1301, USA. !------------------------------------------------------------------------------- !=============================================================================== ! Function: ! --------- ! Basic example of cs_user_boundary_conditions subroutine.f90 ! !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- ! Arguments !______________________________________________________________________________. ! mode name role ! !______________________________________________________________________________! !> \param[in] nvar total number of variables !> \param[in] nscal total number of scalars !> \param[out] icodcl boundary condition code: !> - 1 Dirichlet !> - 2 Radiative outlet !> - 3 Neumann !> - 4 sliding and !> \f$ \vect{u} \cdot \vect{n} = 0 \f$ !> - 5 smooth wall and !> \f$ \vect{u} \cdot \vect{n} = 0 \f$ !> - 6 rough wall and !> \f$ \vect{u} \cdot \vect{n} = 0 \f$ !> - 9 free inlet/outlet !> (input mass flux blocked to 0) !> \param[in] itrifb indirection for boundary faces ordering !> \param[in,out] itypfb boundary face types !> \param[out] izfppp boundary face zone number !> \param[in] dt time step (per cell) !> \param[in,out] rcodcl boundary condition values: !> - rcodcl(1) value of the dirichlet !> - rcodcl(2) value of the exterior exchange !> coefficient (infinite if no exchange) !> - rcodcl(3) value flux density !> (negative if gain) in w/m2 or roughness !> in m if icodcl=6 !> -# for the velocity \f$ (\mu+\mu_T) !> \gradt \, \vect{u} \cdot \vect{n} \f$ !> -# for the pressure \f$ \Delta t !> \grad P \cdot \vect{n} \f$ !> -# for a scalar \f$ cp \left( K + !> \dfrac{K_T}{\sigma_T} \right) !> \grad T \cdot \vect{n} \f$ !_______________________________________________________________________________ subroutine cs_user_boundary_conditions & ( nvar , nscal , & icodcl , itrifb , itypfb , izfppp , & dt , & rcodcl ) !=============================================================================== !=============================================================================== ! Module files !=============================================================================== use paramx use numvar use optcal use cstphy use cstnum use entsor use parall use period use ihmpre use ppppar use ppthch use coincl use cpincl use ppincl use ppcpfu use atincl use ctincl use elincl use cs_fuel_incl use mesh use field !=============================================================================== implicit none ! Arguments integer nvar , nscal integer icodcl(nfabor,nvarcl) integer itrifb(nfabor), itypfb(nfabor) integer izfppp(nfabor) double precision dt(ncelet) double precision rcodcl(nfabor,nvarcl,3) ! Local variables !< [loc_var_dec] integer ifac, iel, ii, ivar integer izone integer ilelt, nlelt double precision uref2, d2s3 double precision rhomoy, xdh, xustar2 double precision xitur double precision xkent, xeent integer, allocatable, dimension(:) :: lstelt double precision, dimension(:), pointer :: bfpro_rom !< [loc_var_dec] !=============================================================================== !=============================================================================== ! Initialization !=============================================================================== !< [init] allocate(lstelt(nfabor)) ! temporary array for boundary faces selection d2s3 = 2.d0/3.d0 call field_get_val_s(ibrom, bfpro_rom) !< [init] !=============================================================================== ! Assign boundary conditions to boundary faces here ! For each subset: ! - use selection criteria to filter boundary faces of a given subset ! - loop on faces from a subset ! - set the boundary condition for each face !=============================================================================== write(nfecra,*) 'je suis dans boundary' !< [Intlet] call getfbr('11', nlelt, lstelt) do ilelt = 1, nlelt ifac = lstelt(ilelt) iel = ifabor(ifac) itypfb(ifac) = ientre icodcl(ifac,iu)=1 icodcl(ifac,iv)=1 icodcl(ifac,iw)=1 rcodcl(ifac,iu,1) = 1.2d0 rcodcl(ifac,iv,1) = 0.d0 rcodcl(ifac,iw,1) = 0.d0 rcodcl(ifac,iu,3) = 0.001d0 rcodcl(ifac,iv,3) = 0.001d0 rcodcl(ifac,iw,3) = 0.001d0 uref2 = rcodcl(ifac,iu,1)**2 & + rcodcl(ifac,iv,1)**2 & + rcodcl(ifac,iw,1)**2 uref2 = max(uref2,1.d-12) xkent = 8.64d-6 xeent = 4.23d-8 rcodcl(ifac,ik,1) = xkent rcodcl(ifac,iep,1) = xeent ! Handle scalars rcodcl(ifac,isca(1),1) = 1.d0 rcodcl(ifac,isca(2),1) = 0.d0 rcodcl(ifac,isca(3),1) = 0.d0 rcodcl(ifac,isca(4),1) = 0.d0 enddo !< [Inlet] ! Assign an outlet to boundary faces of group 'outlet' !< [Outlet] call getfbr('12', nlelt, lstelt) do ilelt = 1, nlelt ifac = lstelt(ilelt) ! Outlet: zero flux for velocity and temperature, prescribed pressure ! Note that the pressure will be set to P0 at the first ! free outlet face (isolib) itypfb(ifac) = isolib icodcl(ifac,iu)=3 icodcl(ifac,iv)=3 icodcl(ifac,iw)=3 rcodcl(ifac,iu,1) = 0.d0 rcodcl(ifac,iv,1) = 0.d0 rcodcl(ifac,iw,1) = 0.d0 uref2 = rcodcl(ifac,iu,1)**2 & + rcodcl(ifac,iv,1)**2 & + rcodcl(ifac,iw,1)**2 uref2 = max(uref2,1.d-12) xkent = 0.d0 xeent = 0.d0 rcodcl(ifac,ik,1) = xkent rcodcl(ifac,iep,1) = xeent ! Handle scalars rcodcl(ifac,isca(1),1) = 0.d0 rcodcl(ifac,isca(2),1) = 0.d0 rcodcl(ifac,isca(3),1) = 0.d0 rcodcl(ifac,isca(4),1) = 0.d0 enddo !< [Outlet] ! Assign a wall to boundary faces of group '5' !< [Wall] call getfbr('4', nlelt, lstelt) do ilelt = 1, nlelt ifac = lstelt(ilelt) ! Wall: zero flow (zero flux for pressure) ! rough friction for velocities (+ turbulent variables) ! zero flux for scalars itypfb(ifac) = iparug ! Roughness for velocity: 1cm rcodcl(ifac,iu,3) = 0.001d0 ! Roughness for scalar (if required): 1cm rcodcl(ifac,iv,3) = 0.001d0 enddo !< [Wall] !-------- ! Formats !-------- !---- ! End !---- !< [finalize] deallocate(lstelt) ! temporary array for boundary faces selection !< [finalize] return end subroutine cs_user_boundary_conditions