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 cplsat.f90
24!> \brief Module for code/code coupling
25
26module cplsat
27
28  !=============================================================================
29
30  use paramx
31
32  implicit none
33
34  !=============================================================================
35
36  !> \defgroup cplsat Module for code/code coupling
37  !> code / code - management of key parameters
38
39  !> \addtogroup cplsat
40  !> \{
41
42  !> number of couplings Code_Saturne / Code_Saturne
43  integer, save :: nbrcpl
44  !> indicator coupling face / face only
45  integer, save :: ifaccp
46  !> maximum permissible number of coupling
47  integer   nbcpmx
48  parameter(nbcpmx=10)
49  !> turbulence model of the remote instance
50  integer, save :: iturcp(nbcpmx)
51  !> indicator to update location of the coupling
52  integer, save :: imajcp(nbcpmx)
53  !> indicator of calulation in relative reference frame
54  integer, save :: icormx(nbcpmx)
55  !> number of variables to send/receive
56  integer, save :: nvarcp(nbcpmx)
57  !> size of exchange tables
58  integer, save :: nvarto(nbcpmx)
59  !> Absolute time value after the mesh starts to rotate (if it does),
60  !> for previous calculation
61  double precision, save :: ttpmob
62  !> Current absolute time after the mesh starts to rotate (if it does).
63  !> In case of restart, this is equal to ttpmob + additional computed time.
64  double precision, save :: ttcmob
65  !> \}
66
67  !=============================================================================
68
69end module cplsat
70