!------------------------------------------------------------------------------- ! Code_Saturne version 2.3.1 ! -------------------------- ! This file is part of Code_Saturne, a general-purpose CFD tool. ! ! Copyright (C) 1998-2012 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 cs_user_extra_operations & !================================== ( 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) !------------------------------------------------------------------------------- ! 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 ifac integer ii integer ilelt , nlelt double precision xfor(3) double precision rho, Aref, u0, coeff, coef(3) integer, allocatable, dimension(:) :: lstelt !=============================================================================== !=============================================================================== ! Initialization !=============================================================================== ! Allocate a temporary array for cells or interior/boundary faces selection allocate(lstelt(max(ncel,nfac,nfabor))) !=============================================================================== ! Example: compute global efforts on a subset of faces !=============================================================================== ! If efforts have been calculated correctly: if (ineedf.eq.1) then do ii = 1, ndim xfor(ii) = 0.d0 enddo call getfbr('voile', nlelt, lstelt) !========== do ilelt = 1, nlelt ifac = lstelt(ilelt) do ii = 1, ndim xfor(ii) = xfor(ii) + forbr(ii, ifac) enddo enddo if (irangp.ge.0) then call parrsm(ndim,xfor) endif endif ! rho=1.2d0 Aref = 1.5d0*6.0D0 u0 = 5.0d0 coeff = 0.5d0*rho*Aref*u0**2 !coeff = 22.5d0 do ii = 1,ndim coef(ii) = xfor(ii)/coeff enddo ! ! Only process of rank 0 (parallel) or -1 (scalar) writes to this file. ! We use 'user' Fortran units. ! impout = impusr(1) if (irangp.le.0) then open(70,file='coef.dat') write(70,98) ntcabs, ttcabs, coef(1) , coef(2), coef(3) endif ! 98 format(I12, 4g17.9) ! Deallocate the temporary array deallocate(lstelt) return end subroutine