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
!-------------------------------------------------------------------------------
29
!===============================================================================
31
! IPERIO : INDIQUE S'IL Y A AU MOINS UNE PERIODICITE
32
! VALEUR ADMISSIBLES : 0 ou 1 ; VALEUR PAR DEFAUT : 0
33
! IPEROT : INDIQUE LE NOMBRE DE PERIODICITES DE ROTATION
34
! (COMPLETE AUTOMATIQUEMENT)
35
! VALEUR PAR DEFAUT : 0
37
! IGUPER : 0/1 INDIQUE QU'ON A /N'A PAS CALCULE LES GRADIENTS DANS DUDXYZ
38
! IGRPER : 0/1 INDIQUE QU'ON A /N'A PAS CALCULE LES GRADIENTS DANS DRDXYZ
40
integer iperio, iperot, iguper, igrper
42
common / iiiper / iperio, iperot, iguper, igrper