/*============================================================================
*
* Code_Saturne version 1.3
* ------------------------
*
*
* This file is part of the Code_Saturne Kernel, element of the
* Code_Saturne CFD tool.
*
* Copyright (C) 1998-2007 EDF S.A., France
*
* contact: saturne-support@edf.fr
*
* The Code_Saturne Kernel is free software; you can redistribute it
* and/or modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2 of
* the License, or (at your option) any later version.
*
* The Code_Saturne Kernel is distributed in the hope that it will be
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with the Code_Saturne Kernel; if not, write to the
* Free Software Foundation, Inc.,
* 51 Franklin St, Fifth Floor,
* Boston, MA 02110-1301 USA
*
*============================================================================*/
#ifndef __CS_ALE_H__
#define __CS_ALE_H__
/*============================================================================
* Gestion de la methode ALE
*============================================================================*/
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
/*----------------------------------------------------------------------------
* Fichiers `include' librairie standard C
*----------------------------------------------------------------------------*/
/*----------------------------------------------------------------------------
* Fichiers `include' locaux
*----------------------------------------------------------------------------*/
#include "cs_base.h"
/*============================================================================
* Prototype de fonctions publiques pour API Fortran
*============================================================================*/
/*----------------------------------------------------------------------------
* Calcul des centres de gravité des faces et cellules, et des volumes
*
* Interface Fortran :
*
* SUBROUTINE ALGRMA
* *****************
*
*----------------------------------------------------------------------------*/
void CS_PROCF (algrma, ALGRMA) (void) ;
/*----------------------------------------------------------------------------
* Projection aux noeuds du maillage du deplacement calcule au centre des
* cellules
*
* Interface Fortran :
*
* SUBROUTINE ALDEPL
* *****************
*
* INTEGER IFACEL(2,NFAC) : --> : Connectivite faces internes/cellules
* INTEGER IFABOR(NFABOR) : --> : Connectivite faces de bord/cellules
* INTEGER IPNFAC(NFAC+1) : --> : Position du premier noeud de chaque face interne
* INTEGER NODFAC(LNDFAC) : --> : Connectivite faces internes/noeuds
* INTEGER IPNFBR(NFABOR+1): --> : Position du premier noeud de chaque face de bord
* INTEGER NODFBR(LNDFBR) : --> : Connectivite faces de bord/noeuds
* DOUBLE PRECISION UMA(NCELET) : --> : Vitesse de maillage selon X
* DOUBLE PRECISION VMA(NCELET) : --> : Vitesse de maillage selon X
* DOUBLE PRECISION WMA(NCELET) : --> : Vitesse de maillage selon X
* DOUBLE PRECISION COEFAU(NCELET) : --> : Condition aux limites A pour UMA
* DOUBLE PRECISION COEFAV(NCELET) : --> : Condition aux limites A pour VMA
* DOUBLE PRECISION COEFAW(NCELET) : --> : Condition aux limites A pour WMA
* DOUBLE PRECISION COEFBU(NCELET) : --> : Condition aux limites B pour UMA
* DOUBLE PRECISION COEFBV(NCELET) : --> : Condition aux limites B pour VMA
* DOUBLE PRECISION COEFBW(NCELET) : --> : Condition aux limites B pour WMA
* DOUBLE PRECISION DT(NCELET) : --> : Pas de temps
* DOUBLE PRECISION DEPROJ(NNOD,3)) : <-- : Deplacement projete aux noeuds
*----------------------------------------------------------------------------*/
void CS_PROCF (aldepl, ALDEPL)
(
const cs_int_t ifacel[],
const cs_int_t ifabor[],
const cs_int_t ipnfac[],
const cs_int_t nodfac[],
const cs_int_t ipnfbr[],
const cs_int_t nodfbr[],
cs_real_t *uma,
cs_real_t *vma,
cs_real_t *wma,
cs_real_t *coefau,
cs_real_t *coefav,
cs_real_t *coefaw,
cs_real_t *coefbu,
cs_real_t *coefbv,
cs_real_t *coefbw,
cs_real_t *dt,
cs_real_t *deproj
) ;
#ifdef __cplusplus
}
#endif /* __cplusplus */
#endif /* __CS_ALE_H__ */
syntax highlighted by Code2HTML, v. 0.9.1