1!-------------------------------------------------------------------------------
2
3! This file is part of Code_Saturne, a general-purpose CFD tool.
4!
5! Copyright (C) 1998-2021 EDF S.A.
6!
7! This program is free software; you can redistribute it and/or modify it under
8! the terms of the GNU General Public License as published by the Free Software
9! Foundation; either version 2 of the License, or (at your option) any later
10! version.
11!
12! This program is distributed in the hope that it will be useful, but WITHOUT
13! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
15! details.
16!
17! You should have received a copy of the GNU General Public License along with
18! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
19! Street, Fifth Floor, Boston, MA 02110-1301, USA.
20
21!-------------------------------------------------------------------------------
22
23!> \file period.f90
24!> \brief Module for periodicity flags
25
26module period
27
28  !=============================================================================
29
30  implicit none
31
32  !> \defgroup period Module for periodicity flags
33
34  !> \addtogroup period
35  !> \{
36
37  !> presence of periodicity.
38  !> - 1: periodicity is activated
39  !> - 0: no periodicity (default value)
40  integer, save :: iperio
41
42  !> number of rotation periodicities. automaticly evaluated.
43  !> default value is 0
44  integer, save :: iperot
45
46  ! TODO
47  integer, save :: igrper
48
49  !=============================================================================
50
51  !> \}
52
53end module period
54