1
!-------------------------------------------------------------------------------
3
! This file is part of the Code_Saturne Kernel, element of the
4
! Code_Saturne CFD tool.
6
! Copyright (C) 1998-2009 EDF S.A., France
8
! contact: saturne-support@edf.fr
10
! The Code_Saturne Kernel is free software; you can redistribute it
11
! and/or modify it under the terms of the GNU General Public License
12
! as published by the Free Software Foundation; either version 2 of
13
! the License, or (at your option) any later version.
15
! The Code_Saturne Kernel is distributed in the hope that it will be
16
! useful, but WITHOUT ANY WARRANTY; without even the implied warranty
17
! of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18
! GNU General Public License for more details.
20
! You should have received a copy of the GNU General Public License
21
! along with the Code_Saturne Kernel; if not, write to the
22
! Free Software Foundation, Inc.,
23
! 51 Franklin St, Fifth Floor,
24
! Boston, MA 02110-1301 USA
26
!-------------------------------------------------------------------------------
33
!===============================================================================
37
! INITIALISATION PAR DEFAUT DES PARAMETRES POUR LA METHODE
38
! DES VORTEX AVANT DE PASSER LA MAIN A L'UTILISATEUR
40
!-------------------------------------------------------------------------------
42
!__________________.____._____.________________________________________________.
43
! name !type!mode ! role !
44
!__________________!____!_____!________________________________________________!
45
! nfabor ! i ! <-- ! number of boundary faces !
46
! irepvo ! te ! --> ! numero de l'entree associe a chaque !
47
! (nfabor) ! ! ! face de bord (=0 si pas de vortex) !
48
!__________________!____!_____!________________________________________________!
50
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
51
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
52
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
53
! --- tableau de travail
54
!===============================================================================
58
!===============================================================================
60
!===============================================================================
64
!===============================================================================
68
integer nfabor, irepvo(nfabor)
74
!===============================================================================
77
!===============================================================================
78
! 1. PARAMETRES DE LA METHODE
79
!===============================================================================
81
! ---> Nombre d'entrees
85
! ---> Nombre de vortex
91
! ---> Defintion du cas
97
! ---> Tableau de reperage et repere local
111
! ---> Conditions aux limites et grandeurs caracteristiques
122
! ---> Parametres physiques
133
! ---> Donnees utilisateurs
136
WRITE(FICVOR(II),'(1A6,I2.2)') 'vordat',II