!------------------------------------------------------------------------------- ! Code_Saturne version 2.1.0 ! -------------------------- ! This file is part of Code_Saturne, a general-purpose CFD tool. ! ! Copyright (C) 1998-2011 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. !------------------------------------------------------------------------------- subroutine usproj & !================ ( nvar , nscal , & nbpmax , nvp , nvep , nivep , ntersl , nvlsta , nvisbr , & itepa , & dt , rtpa , rtp , propce , propfa , propfb , & coefa , coefb , & ettp , ettpa , tepa , statis , stativ , tslagr , parbor ) !=============================================================================== ! Purpose: ! ------- ! User subroutine. ! Called at end of each time step, very general purpose ! (i.e. anything that does not have another dedicated user subroutine) ! Several examples are given here: ! - compute a thermal balance ! (if needed, see note below on adapting this to any scalar) ! - compute global efforts on a subset of faces ! - arbitrarily modify a calculation variable ! - extract a 1 d profile ! - print a moment ! - examples on using parallel utility functions ! These examples are valid when using periodicity (iperio .gt. 0) ! and in parallel (irangp .ge. 0). ! The thermal balance compution also illustates a few other features, ! including the required precautions in parallel or with periodicity): ! - gradient calculation ! - computation of a value depending on cells adjacent to a face ! (see synchronization of Dt and Cp) ! - computation of a global sum in parallel (parsom) ! Cells, boundary faces and interior faces identification ! ======================================================= ! Cells, boundary faces and interior faces may be identified using ! the subroutines 'getcel', 'getfbr' and 'getfac' (respectively). ! getfbr(string, nelts, eltlst): ! - string is a user-supplied character string containing selection criteria; ! - nelts is set by the subroutine. It is an integer value corresponding to ! the number of boundary faces verifying the selection criteria; ! - lstelt is set by the subroutine. It is an integer array of size nelts ! containing the list of boundary faces verifying the selection criteria. ! string may contain: ! - references to colors (ex.: 1, 8, 26, ...) ! - references to groups (ex.: inlet, group1, ...) ! - geometric criteria (ex. x < 0.1, y >= 0.25, ...) ! These criteria may be combined using logical operators ('and', 'or') and ! parentheses. ! Example: '1 and (group2 or group3) and y < 1' will select boundary faces ! of color 1, belonging to groups 'group2' or 'group3' and with face center ! coordinate y less than 1. ! Similarly, interior faces and cells can be identified using the 'getfac' ! and 'getcel' subroutines (respectively). Their syntax are identical to ! 'getfbr' syntax. ! For a more thorough description of the criteria syntax, it can be referred ! to the user guide. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! nvar ! i ! <-- ! total number of variables ! ! nscal ! i ! <-- ! total number of scalars ! ! nbpmax ! i ! <-- ! max. number of particles allowed ! ! nvp ! i ! <-- ! number of particle-defined variables ! ! nvep ! i ! <-- ! number of real particle properties ! ! nivep ! i ! <-- ! number of integer particle properties ! ! ntersl ! i ! <-- ! number of return coupling source terms ! ! nvlsta ! i ! <-- ! number of Lagrangian statistical variables ! ! nvisbr ! i ! <-- ! number of boundary statistics ! ! itepa ! ia ! <-- ! integer particle attributes ! ! (nbpmax, nivep) ! ! ! (containing cell, ...) ! ! dt(ncelet) ! ra ! <-- ! time step (per cell) ! ! rtp, rtpa ! ra ! <-- ! calculated variables at cell centers ! ! (ncelet, *) ! ! ! (at current and previous time steps) ! ! propce(ncelet, *)! ra ! <-- ! physical properties at cell centers ! ! propfa(nfac, *) ! ra ! <-- ! physical properties at interior face centers ! ! propfb(nfabor, *)! ra ! <-- ! physical properties at boundary face centers ! ! coefa, coefb ! ra ! <-- ! boundary conditions ! ! (nfabor, *) ! ! ! ! ! ettp, ettpa ! ra ! <-- ! particle-defined variables ! ! (nbpmax, nvp) ! ! ! (at current and previous time steps) ! ! tepa ! ra ! <-- ! real particle properties ! ! (nbpmax, nvep) ! ! ! (statistical weight, ... ! ! statis ! ra ! <-- ! statistic means ! ! (ncelet, nvlsta)! ! ! ! ! stativ(ncelet, ! ra ! <-- ! accumulator for variance of volume statisitics ! ! nvlsta -1)! ! ! ! ! tslagr ! ra ! <-- ! Lagrangian return coupling term ! ! (ncelet, ntersl)! ! ! on carrier phase ! ! parbor ! ra ! <-- ! particle interaction properties ! ! (nfabor, nvisbr)! ! ! on boundary faces ! !__________________!____!_____!________________________________________________! ! Type: i (integer), r (real), s (string), a (array), l (logical), ! and composite types (ex: ra real array) ! mode: <-- input, --> output, <-> modifies data, --- work array !=============================================================================== !=============================================================================== ! Module files !=============================================================================== use paramx use dimens, only: ndimfb use pointe use numvar use optcal use cstphy use cstnum use entsor use lagpar use lagran use parall use period use ppppar use ppthch use ppincl use mesh !=============================================================================== implicit none ! Arguments integer nvar , nscal integer nbpmax , nvp , nvep , nivep integer ntersl , nvlsta , nvisbr integer itepa(nbpmax,nivep) double precision dt(ncelet), rtp(ncelet,*), rtpa(ncelet,*) double precision propce(ncelet,*) double precision propfa(nfac,*), propfb(ndimfb,*) double precision coefa(ndimfb,*), coefb(ndimfb,*) double precision ettp(nbpmax,nvp) , ettpa(nbpmax,nvp) double precision tepa(nbpmax,nvep) double precision statis(ncelet,nvlsta), stativ(ncelet,nvlsta-1) double precision tslagr(ncelet,ntersl) double precision parbor(nfabor,nvisbr) ! Local variables integer iel , ielg , ifac , ifacg , ivar integer iel1 , iel2 , ieltsm integer iortho , impout integer inc , iccocg integer nswrgp , imligp , iwarnp integer iutile , iclvar , iii integer ipcrom , ipcvst , iflmas , iflmab , ipccp, ipcvsl integer iscal integer ii , nbr , irangv , irang1 , npoint integer imom , ipcmom , idtcm integer itab(3), iun integer ncesmp integer ilelt , nlelt double precision xrtpa , xrtp double precision xbilan , xbilvl , xbilpa , xbilpt double precision xbilsy , xbilen , xbilso , xbildv double precision xbilmi , xbilma double precision epsrgp , climgp , extrap double precision xfluxf , xgamma double precision diipbx, diipby, diipbz, distbr double precision visct, flumab , xcp , xvsl, rrr, ctb1, ctb2 double precision xfor(3), xyz(3), xabs, xu, xv, xw, xk, xeps, XCOF(3) integer, allocatable, dimension(:) :: lstelt double precision, allocatable, dimension(:,:) :: grad double precision, allocatable, dimension(:) :: treco integer, parameter :: out_unit=20 !=============================================================================== !=============================================================================== ! 1. Initialization !=============================================================================== ! Allocate a temporary array for cells or interior/boundary faces selection allocate(lstelt(max(ncel,nfac,nfabor))) ! Memory management !=============================================================================== ! idebia = idbia0 idebra = idbra0 !=============================================================================== ! 3. Example: compute global efforts on a subset of faces ! ---------------------------------------------------- !=============================================================================== ! ---------------------------------------------- ! The test below allows checking that the following example compiles ! while disabling it by default. !======================================================================= ! CALCULATE VALUES ON A BOUNDARY FACE: !======================================================================= ! Si les efforts ont bien ete calcules : IF(NTCABS.EQ.1) THEN OPEN(FILE='drag_lift.dat',UNIT=IMPUSR(1)) ! Write headings to the dat file ! CX, CY, CZ are the x,y,z coefficients WRITE(IMPUSR(1),'(4(A,1X))') &' TIME STEP ', &' CX ', &' CY ', &' CZ ' CLOSE(UNIT=IMPUSR(1)) IF(NTCABS.EQ.1) THEN do ii = 1, ndim xfor(ii) = 0.d0 XCOF(ii) = 0.d0 enddo ! open the file OPEN(FILE='drag_lift.dat',UNIT=IMPUSR(1),ACCESS='APPEND') CALL GETFBR('wall',NLELT,LSTELT) !========== do ilelt = 1, nlelt ifac = lstelt(ilelt) do ii = 1, ndim xfor(ii) = xfor(ii) + ra(iforbr + (ifac-1)*ndim + ii-1) enddo enddo endif ! calculate x,y,zz coefficents DO II=1,NDIM XCOF(II) = xfor(II)/((1.0d0/2.0d0)*RO0(1)*UREF(1)**2*0.025d0*0.025d0*3.141d0) ENDDO ! print our coefficients for current timestep write(nfecra,'(A, F8.3)')'usproj:Drag Co-efficient =',XCOF(1) WRITE(IMPUSR(1),'(I12,1X,3(E12.5,1X))') NTCABS,XCOF(1),XCOF(2),XCOF(3) ! ! close CLOSE(UNIT=IMPUSR(1)) return end