programmer's documentation
cs_ast_coupling.h
Go to the documentation of this file.
1 #ifndef __CS_AST_COUPLING_H__
2 #define __CS_AST_COUPLING_H__
3 
4 /*============================================================================
5  * Code_Aster coupling
6  *============================================================================*/
7 
8 /*
9  This file is part of Code_Saturne, a general-purpose CFD tool.
10 
11  Copyright (C) 1998-2019 EDF S.A.
12 
13  This program is free software; you can redistribute it and/or modify it under
14  the terms of the GNU General Public License as published by the Free Software
15  Foundation; either version 2 of the License, or (at your option) any later
16  version.
17 
18  This program is distributed in the hope that it will be useful, but WITHOUT
19  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
20  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
21  details.
22 
23  You should have received a copy of the GNU General Public License along with
24  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
25  Street, Fifth Floor, Boston, MA 02110-1301, USA.
26 */
27 
28 /*----------------------------------------------------------------------------*/
29 
30 /*----------------------------------------------------------------------------
31  * Standard C library headers
32  *----------------------------------------------------------------------------*/
33 
34 /*----------------------------------------------------------------------------
35  * Local headers
36  *----------------------------------------------------------------------------*/
37 
38 #include "cs_base.h"
39 
40 /*----------------------------------------------------------------------------*/
41 
43 
44 /*=============================================================================
45  * Local Macro Definitions
46  *============================================================================*/
47 
48 /*============================================================================
49  * Structure definition
50  *============================================================================*/
51 
52 typedef struct _cs_ast_coupling_t cs_ast_coupling_t;
53 
54 /*============================================================================
55  * Global variable definitions
56  *============================================================================*/
57 
58 /*============================================================================
59  * Public function prototypes for Fortran API
60  *============================================================================*/
61 
62 /*----------------------------------------------------------------------------
63  * Send nodes coordinates and structure numbering of coupled mesh.
64  *
65  * Fortran Interface:
66  *
67  * SUBROUTINE ASTGEO
68  * *****************
69  *
70  *----------------------------------------------------------------------------*/
71 
72 void CS_PROCF(astgeo, ASTGEO)
73 (
75  cs_int_t *lstfac,
76  cs_int_t *idfast,
77  cs_int_t *idnast,
79 );
80 
81 /*----------------------------------------------------------------------------
82  * Send stresses acting on the fluid/structure interface.
83  *
84  * Fortran Interface:
85  *
86  * SUBROUTINE ASTFOR
87  * *****************
88  *
89  *----------------------------------------------------------------------------*/
90 
91 void CS_PROCF(astfor, ASTFOR)
92 (
95  cs_real_t *forast
96 );
97 
98 /*----------------------------------------------------------------------------
99  * Receive displacement values of the fluid/structure interface
100  *
101  * Fortran Interface:
102  *
103  * SUBROUTINE ASTCIN
104  * *****************
105  *
106  *----------------------------------------------------------------------------*/
107 
108 void CS_PROCF(astcin, ASTCIN)
109 (
110  cs_int_t *ntcast,
111  cs_real_3_t *disale
112 );
113 
114 /*----------------------------------------------------------------------------
115  * Exchange time step
116  *
117  * Fortran Interface:
118  *
119  * SUBROUTINE ASTPDT
120  * *****************
121  *
122  *----------------------------------------------------------------------------*/
123 
124 void CS_PROCF(astpdt, ASTPDT)
125 (
126  cs_real_t *dttab,
127  cs_int_t *nbpdt
128 );
129 
130 /*============================================================================
131  * Public function prototypes
132  *============================================================================*/
133 
134 /*----------------------------------------------------------------------------*/
143 /*----------------------------------------------------------------------------*/
144 
145 void
147  cs_real_t epalim);
148 
149 /*----------------------------------------------------------------------------*/
153 /*----------------------------------------------------------------------------*/
154 
155 void
157 
158 /*----------------------------------------------------------------------------*/
165 /*----------------------------------------------------------------------------*/
166 
167 int
169 
170 /*----------------------------------------------------------------------------*/
176 /*----------------------------------------------------------------------------*/
177 
178 void
179 cs_ast_coupling_send_cvg(int icved);
180 
181 /*----------------------------------------------------------------------------*/
182 
184 
185 #endif /* __CS_SYR_COUPLING_H__ */
void cs_ast_coupling_send_cvg(int icved)
Send global convergence value of FSI calculations.
Definition: cs_ast_coupling.c:1204
integer, save ntcast
Definition: alaste.f90:46
integer, save nbfast
Definition: alaste.f90:47
#define BEGIN_C_DECLS
Definition: cs_defs.h:467
void astgeo(cs_int_t *nbfast, cs_int_t *lstfac, cs_int_t *idfast, cs_int_t *idnast, cs_real_t *almax)
Definition: cs_ast_coupling.c:449
int cs_int_t
Fortran-compatible integer.
Definition: cs_defs.h:301
double precision, save epalim
relative precision of implicitation of the structure displacement
Definition: albase.f90:51
int cs_ast_coupling_get_ext_cvg(void)
Receive convergence value of code_saturne/code_aster coupling.
Definition: cs_ast_coupling.c:1181
void cs_ast_coupling_initialize(int nalimx, cs_real_t epalim)
Initial exchange with code_aster.
Definition: cs_ast_coupling.c:1061
double cs_real_t
Floating-point value.
Definition: cs_defs.h:302
void astcin(cs_int_t *ntcast, cs_real_3_t *disale)
Definition: cs_ast_coupling.c:857
cs_real_t cs_real_3_t[3]
vector of 3 floating-point values
Definition: cs_defs.h:315
integer, save nalimx
maximum number of implicitation iterations of the structure displacement
Definition: albase.f90:49
#define END_C_DECLS
Definition: cs_defs.h:468
void cs_ast_coupling_finalize(void)
Finalize exchange with code_aster.
Definition: cs_ast_coupling.c:1142
void astpdt(cs_real_t *dttab, cs_int_t *nbpdt)
Definition: cs_ast_coupling.c:944
#define CS_PROCF(x, y)
Definition: cs_defs.h:481
void astfor(cs_int_t *ntcast, cs_int_t *nbfast, cs_real_t *forast)
Definition: cs_ast_coupling.c:725
real(c_double), pointer, save almax
is a characteristic macroscopic length of the domain, used for the initialization of the turbulence a...
Definition: cstphy.f90:610
struct _cs_ast_coupling_t cs_ast_coupling_t
Definition: cs_ast_coupling.h:52