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-2015 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 variables definition
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 (
76  cs_int_t *lstfac,
77  cs_int_t *idfast,
78  cs_int_t *idnast,
80 );
81 
82 /*----------------------------------------------------------------------------
83  * Send stresses acting on the fluid/structure interface.
84  *
85  * Fortran Interface:
86  *
87  * SUBROUTINE ASTFOR
88  * *****************
89  *
90  *----------------------------------------------------------------------------*/
91 
92 void CS_PROCF(astfor, ASTFOR)
93 (
96  cs_real_t *forast
97 );
98 
99 /*----------------------------------------------------------------------------
100  * Receive displacement values of the fluid/structure interface
101  *
102  * Fortran Interface:
103  *
104  * SUBROUTINE ASTCIN
105  * *****************
106  *
107  *----------------------------------------------------------------------------*/
108 
109 void CS_PROCF(astcin, ASTCIN)
110 (
111  cs_int_t *ntcast,
112  cs_real_3_t *disale
113 );
114 
115 /*----------------------------------------------------------------------------
116  * Receive coupling parameters
117  *
118  * Fortran Interface:
119  *
120  * SUBROUTINE ASTPAR
121  * *****************
122  *
123  *----------------------------------------------------------------------------*/
124 
125 void CS_PROCF(astpar, ASTPAR)
126 (
127  cs_int_t *nbpdt,
128  cs_int_t *nbsspdt,
129  cs_real_t *delta,
130  cs_real_t *tt,
131  cs_real_t *dt
132 );
133 
134 /*----------------------------------------------------------------------------
135  * Exchange time step
136  *
137  * Fortran Interface:
138  *
139  * SUBROUTINE ASTPDT
140  * *****************
141  *
142  *----------------------------------------------------------------------------*/
143 
144 void CS_PROCF(astpdt, ASTPDT)
145 (
146  cs_real_t *dttab,
147  cs_int_t *ncelet,
148  cs_int_t *nbpdt
149 );
150 
151 /*----------------------------------------------------------------------------
152  * Receive convergence value of Code_Saturne/Code_Aster coupling
153  *
154  * Fortran Interface:
155  *
156  * SUBROUTINE ASTCV1
157  * *****************
158  *
159  *----------------------------------------------------------------------------*/
160 
161 void CS_PROCF(astcv1, ASTCV1)
162 (
163  cs_int_t *ntcast,
164  cs_int_t *icv
165 );
166 
167 /*-----------------------------------------------------------------------------
168  * Send global convergence value of IFS calculations
169  * (Internal and external structures)
170  *
171  * Fortran Interface:
172  *
173  * SUBROUTINE ASTCV2
174  * *****************
175  *
176  *----------------------------------------------------------------------------*/
177 
178 void CS_PROCF(astcv2, ASTCV2)
179 (
180  cs_int_t *ntcast,
181  cs_int_t *icv
182 );
183 
184 /*============================================================================
185  * Public function prototypes
186  *============================================================================*/
187 
188 /*----------------------------------------------------------------------------
189  * Free coupling structure.
190  *----------------------------------------------------------------------------*/
191 
192 void
194 
195 /*----------------------------------------------------------------------------*/
196 
198 
199 #endif /* __CS_SYR_COUPLING_H__ */
integer, save nbnast
Definition: alaste.f90:47
void astcv2(cs_int_t *ntcast, cs_int_t *icv)
Definition: cs_ast_coupling.c:707
integer(c_int), pointer, save icv
isochoric specific heat
Definition: cstphy.f90:87
integer, save ntcast
Definition: alaste.f90:46
integer, save nbfast
Definition: alaste.f90:47
#define BEGIN_C_DECLS
Definition: cs_defs.h:429
int cs_int_t
Fortran-compatible integer.
Definition: cs_defs.h:295
void astpdt(cs_real_t *dttab, cs_int_t *ncelet, cs_int_t *nbpdt)
Definition: cs_ast_coupling.c:604
void astpar(cs_int_t *nbpdt, cs_int_t *nbsspdt, cs_real_t *delta, cs_real_t *tt, cs_real_t *dt)
Definition: cs_ast_coupling.c:514
void astgeo(cs_int_t *nbfast, cs_int_t *nbnast, cs_int_t *lstfac, cs_int_t *idfast, cs_int_t *idnast, cs_real_t *almax)
Definition: cs_ast_coupling.c:131
integer, save ncelet
Definition: mesh.f90:46
void astcin(cs_int_t *ntcast, cs_real_3_t *disale)
Definition: cs_ast_coupling.c:440
double precision, dimension(ncharm), save delta
Definition: cpincl.f90:97
Definition: cs_field_pointer.h:64
cs_real_t cs_real_3_t[3]
vector of 3 floating-point values
Definition: cs_defs.h:307
#define END_C_DECLS
Definition: cs_defs.h:430
double cs_real_t
Definition: cs_defs.h:296
void cs_ast_coupling_finalize(void)
Definition: cs_ast_coupling.c:729
#define CS_PROCF(x, y)
Definition: cs_defs.h:453
void astfor(cs_int_t *ntcast, cs_int_t *nbfast, cs_real_t *forast)
Definition: cs_ast_coupling.c:395
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:555
void astcv1(cs_int_t *ntcast, cs_int_t *icv)
Definition: cs_ast_coupling.c:677
struct _cs_ast_coupling_t cs_ast_coupling_t
Definition: cs_ast_coupling.h:52