1
!-------------------------------------------------------------------------------
6
! This file is part of the Code_Saturne Kernel, element of the
7
! Code_Saturne CFD tool.
9
! Copyright (C) 1998-2009 EDF S.A., France
11
! contact: saturne-support@edf.fr
13
! The Code_Saturne Kernel is free software; you can redistribute it
14
! and/or modify it under the terms of the GNU General Public License
15
! as published by the Free Software Foundation; either version 2 of
16
! the License, or (at your option) any later version.
18
! The Code_Saturne Kernel is distributed in the hope that it will be
19
! useful, but WITHOUT ANY WARRANTY; without even the implied warranty
20
! of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21
! GNU General Public License for more details.
23
! You should have received a copy of the GNU General Public License
24
! along with the Code_Saturne Kernel; if not, write to the
25
! Free Software Foundation, Inc.,
26
! 51 Franklin St, Fifth Floor,
27
! Boston, MA 02110-1301 USA
29
!-------------------------------------------------------------------------------
36
!===============================================================================
42
! Define couplings with Code_Saturne itself.
44
!-------------------------------------------------------------------------------
46
!__________________.____._____.________________________________________________.
47
! name !type!mode ! role !
48
!__________________!____!_____!________________________________________________!
49
!__________________!____!_____!________________________________________________!
51
! Type: i (integer), r (real), s (string), a (array), l (logical),
52
! and composite types (ex: ra real array)
53
! mode: <-- input, --> output, <-> modifies data, --- work array
54
!===============================================================================
58
!===============================================================================
60
!===============================================================================
66
!===============================================================================
73
integer numsat, nbcsat, ii
76
!===============================================================================
79
! TEST_TO_REMOVE_FOR_USE_OF_SUBROUTINE_START
80
!===============================================================================
84
!===============================================================================
85
! TEST_TO_REMOVE_FOR_USE_OF_SUBROUTINE_END
92
! In the case of a coupling between two Code_Saturne instances, the
93
! 'numsat' and 'namsat' arguments of 'defsat' are ignored.
95
! In case of multiple couplings, a coupling will be matched with available
96
! Code_Saturne instances prioritarily based on the 'namsat' (Code_Saturne
97
! instance name) argument, then on the 'numsat' (Code_Saturne instance
98
! application number) argument.
100
! If 'namsat' is empty, matching will be based on 'numsat' only.
102
! The arguments to defsat are:
103
! numsat <-- matching Code_Saturne application id, or -1
104
! namsat <-- matching Code_Saturne application name
105
! crtcsu <-- cell selection criteria for support
106
! crtfsu <-- boundary face selection criteria for support (not functional)
107
! crtccp <-- cell selection criteria for coupled cells
108
! crtfcp <-- boundary face selection criteria for coupled faces
109
! iwarns <-- verbosity level
111
! Loop on Code_Saturne couplings
115
! Example: coupling with instance number 1
116
! - coupled faces of color 3 or 4
117
! - all cells available as localization support for instance 'SATURNE_01'
123
call defsat(numsat, namsat, 'all[]', ' ', ' ', '3 or 4', iwarns)
126
! Example: coupling with instance number 3
127
! - coupled faces of group 'coupled_faces'
128
! - coupled cells (every cell overlapping the distant mesh)
129
! - all cells available as localization support for instance 'SATURNE_02'
131
else if (ii .eq. 2) then
135
call defsat(numsat, namsat, 'all[]', ' ', 'all[]', 'coupled_faces', iwarns)