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