!------------------------------------------------------------------------------- ! Code_Saturne version 2.0.2 ! -------------------------- ! This file is part of the Code_Saturne Kernel, element of the ! Code_Saturne CFD tool. ! Copyright (C) 1998-2009 EDF S.A., France ! contact: saturne-support@edf.fr ! The Code_Saturne Kernel 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. ! The Code_Saturne Kernel 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 the Code_Saturne Kernel; if not, write to the ! Free Software Foundation, Inc., ! 51 Franklin St, Fifth Floor, ! Boston, MA 02110-1301 USA !------------------------------------------------------------------------------- ! Purpose: ! ------- ! User subroutines for input of calculation parameters (Fortran commons). ! These subroutines are called in all cases. ! If the Code_Saturne GUI is used, this file is not required (but may be ! used to override parameters entered through the GUI, and to set ! parameters not accessible through the GUI). ! Several routines are present in the file, each destined to defined ! specific parameters. ! To modify the default value of parameters which do not appear in the ! examples provided, code should be placed as follows: ! - usipsu for numerical and physical options ! - usipes for input-output related options ! As a convention, "specific physics" defers to the following modules only: ! pulverized coal, gas combustion, electric arcs. !------------------------------------------------------------------------------- !=============================================================================== subroutine usipph & !================ ( nphmax, nphas , iihmpu, nfecra , iturb , icp , iverif ) !=============================================================================== ! Purpose: ! -------- ! User subroutine for input of parameters depending on the number of phases. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! nphmax ! i ! <-- ! maximum number of phases ! ! nphas ! i ! <-- ! number of active phases ! ! iihmpu ! i ! <-- ! indicates if the XML file from the GUI is ! ! ! ! ! used (1: yes, 0: no) ! ! nfecra ! i ! <-- ! Fortran unit number for standard output ! ! iturb(nphmax) ! ia ! <-> ! turbulence model ! ! icp(nphmax) ! ia ! <-> ! flag for uniform Cp or not ! ! iverif ! i ! <-- ! flag for elementary tests ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none !=============================================================================== ! Common blocks !=============================================================================== ! No common should appear here !=============================================================================== ! Arguments integer nphmax, nphas, iihmpu, nfecra integer iturb(nphmax), icp(nphmax) integer iverif ! Local variables integer iphas !=============================================================================== print *, 'active' call csexit(1) return end subroutine !=============================================================================== subroutine usinsc & !================ ( iihmpu, nfecra , nscaus , iverif ) !=============================================================================== ! Purpose: ! ------- ! User subroutine for input of the number of user scalars. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! iihmpu ! i ! <-- ! indicates if the XML file from the GUI is ! ! ! ! ! used (1: yes, 0: no) ! ! nfecra ! i ! <-- ! Fortran unit number for standard output ! ! nscaus ! i ! <-> ! number of user scalars ! ! iverif ! i ! <-- ! flag for elementary tests ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none !=============================================================================== ! Common blocks !=============================================================================== ! No common should appear here !=============================================================================== ! Arguments integer iihmpu, nfecra integer nscaus integer iverif ! Local variables print *, 'active' call csexit(1) return end subroutine !=============================================================================== subroutine usipsc & !================ ( nscmax, nscaus, iihmpu, nfecra, iscavr, ivisls , iverif ) !=============================================================================== ! Purpose: ! ------- ! User subroutine for the input of parameters depending on the ! number of user scalars. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! nscmax ! i ! <-- ! maximum number of scalars ! ! nscaus ! i ! <-- ! number of user scalars ! ! iihmpu ! i ! <-- ! indicates if the XML file from the GUI is ! ! ! ! ! used (1: yes, 0: no) ! ! nfecra ! i ! <-- ! Fortran unit number for standard output ! ! iscavr(nscmax) ! ia ! <-- ! associated scalar number for variance scalars ! ! ivisls(nscmax) ! ia ! <-> ! uniform scalar diffusivity flag ! ! iverif ! i ! <-- ! flag for elementary tests ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none !=============================================================================== ! Common blocks !=============================================================================== ! No common should appear here !=============================================================================== ! Arguments integer nscmax, nscaus, iihmpu, nfecra integer iscavr(nscmax), ivisls(nscmax) integer iverif print *, 'active' call csexit(1) return end subroutine !=============================================================================== subroutine usipgl & !================ ( nphmax, nesmax, & iespre, iesder, iescor, iestot, & nphas , iihmpu, nfecra, & idtvar, ipucou, iphydr, ialgce , iescal , iverif ) !=============================================================================== ! Purpose: ! ------- ! User subroutine for the setting of global parameters. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! nphmax ! i ! <-- ! maximum number of phases ! ! nesmax ! i ! <-- ! maximum number of error estimators per phase ! ! iespre ! i ! <-- ! number of the prediction error estimator ! ! iesder ! i ! <-- ! number of the derivative error estimator ! ! iescor ! i ! <-- ! number of the correction error estimator ! ! iestot ! i ! <-- ! number of the total error estimator ! ! nphas ! i ! <-- ! number of active phases ! ! iihmpu ! i ! <-- ! indicates if the XML file from the GUI is ! ! ! ! ! used (1: yes, 0: no) ! ! nfecra ! i ! <-- ! Fortran unit number for standard output ! ! idtvar ! i ! --> ! variable time step flag ! ! ipucou ! i ! --> ! reinforced u-p coupling flag ! ! iphydr ! i ! --> ! flag for handling of the equilibrium between ! ! ! ! ! the pressure gradient and the gravity and ! ! ! ! ! head-loss terms ! ! ialgce ! i ! <-- ! option for the method of calculation of ! ! ! ! ! cell centers ! ! iescal ! ia ! <-- ! flag for activation of error estimators for ! ! (nesmax,nphmax) ! ! ! Navier-Stokes ! ! iverif ! i ! <-- ! flag for elementary tests ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none !=============================================================================== ! Common blocks !=============================================================================== ! No common should appear here !=============================================================================== ! Arguments integer nphmax, nesmax integer iespre, iesder, iescor, iestot integer nphas , iihmpu, nfecra integer idtvar, ipucou, iphydr, ialgce integer iescal(nesmax,nphmax) integer iverif !=============================================================================== print *, 'active' call csexit(1) return end subroutine !=============================================================================== subroutine usipsu & !================ ( nmodpp , iverif ) !=============================================================================== ! Purpose: ! ------- ! User subroutine for the input of additional user parameters. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! nmodpp ! i ! <-- ! number of active specific physics models ! ! iverif ! i ! <-- ! flag for elementary tests ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none !=============================================================================== ! Common blocks !=============================================================================== include "paramx.h" include "cstnum.h" include "dimens.h" include "numvar.h" include "optcal.h" include "cstphy.h" include "entsor.h" include "vector.h" include "parall.h" include "period.h" include "ihmpre.h" include "ppppar.h" include "ppthch.h" include "ppincl.h" include "coincl.h" include "cpincl.h" include "elincl.h" !=============================================================================== ! Arguments integer nmodpp integer iverif print *, 'active' call csexit(1) return end subroutine !=============================================================================== subroutine usipes & !================ ( nmodpp , iverif ) !=============================================================================== ! Purpose: ! -------- ! User subroutine for the input of additional user parameters for ! input/output. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! nmodpp ! i ! <-- ! number of active specific physics models ! ! iverif ! i ! <-- ! flag for elementary tests ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none !=============================================================================== ! Common blocks !=============================================================================== include "paramx.h" include "cstnum.h" include "dimens.h" include "numvar.h" include "optcal.h" include "cstphy.h" include "entsor.h" include "vector.h" include "parall.h" include "period.h" include "ihmpre.h" include "ppppar.h" include "ppthch.h" include "ppincl.h" !=============================================================================== ! Arguments integer nmodpp integer iverif ! Local variables print *, 'active' call csexit(1) return end subroutine !=============================================================================== subroutine ustbtr & !================ ( ncel , ncelet , nfac , nfabor , nnod , & longia , longra , & nideve , nituse , nrdeve , nrtuse ) !=============================================================================== ! Purpose: ! ------- ! User subroutine to define the sizes of macro-arrays ia and ra, ! of user arrays ituser and rtuser, ! of developper arrays idevel and rdevel. !------------------------------------------------------------------------------- ! Arguments !__________________.____._____.________________________________________________. ! name !type!mode ! role ! !__________________!____!_____!________________________________________________! ! ncel ! i ! <-- ! number of cells ! ! ncelet ! i ! <-- ! number of extended (real + ghost) cells ! ! nfac ! i ! <-- ! number of interior faces ! ! nfabor ! i ! <-- ! number of boundary faces ! ! nnod ! i ! <-- ! number of vertices ! ! longia ! i ! --> ! size of array ia ! ! longra ! i ! --> ! size of array ra ! ! nideve ! i ! --> ! size of array idevel ! ! nituse ! i ! --> ! size of array ituser ! ! nrdeve ! i ! --> ! size of array rdevel ! ! nrtuse ! i ! --> ! size of array rtuser ! !__________________!____!_____!________________________________________________! ! 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 !=============================================================================== implicit none integer ncel, ncelet, nfac, nfabor , nnod, longia, longra, nideve, nituse, nrdeve, nrtuse print *, 'active' call ustest call csexit(1) return end subroutine subroutine ustest print *, 'active' end subroutine