c@a
c@versb
C-----------------------------------------------------------------------
C
CVERS Code_Saturne version 1.3
C ------------------------
C
C This file is part of the Code_Saturne Kernel, element of the
C Code_Saturne CFD tool.
C
C Copyright (C) 1998-2007 EDF S.A., France
C
C contact: saturne-support@edf.fr
C
C The Code_Saturne Kernel is free software; you can redistribute it
C and/or modify it under the terms of the GNU General Public License
C as published by the Free Software Foundation; either version 2 of
C the License, or (at your option) any later version.
C
C The Code_Saturne Kernel is distributed in the hope that it will be
C useful, but WITHOUT ANY WARRANTY; without even the implied warranty
C of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C GNU General Public License for more details.
C
C You should have received a copy of the GNU General Public License
C along with the Code_Saturne Kernel; if not, write to the
C Free Software Foundation, Inc.,
C 51 Franklin St, Fifth Floor,
C Boston, MA 02110-1301 USA
C
C-----------------------------------------------------------------------
c@verse
C pointe.h
C***********************************************************************
C
C... GEOMETRIE
C ACCESSIBLES DIRECTEMENT DANS IA, RA
C
C Pointeur Dimension Description
C IICELB ! NCELBR ! REPERAGE DES CELLULES DE BORD
C ISRFAN ! NFAC ! SURFACE DES FACES INTERNES
C ISRFBN ! NFABOR ! SURFACE DES FACES DE BORD
C IDIST ! NFAC ! IJ.Nij
C IDISTB ! NFABOR ! EQUIVALENT DE IDIST AU BORD
C IPOND ! NFAC ! PONDERATION (Aij=POND Ai+(1-POND)Aj)
C IDIJPF ! NFAC*NDIM ! VECTEUR I'J'
C IDIIPB ! NFAC*NDIM ! EQUIVALENT DE IDIIPF AU BORD
C IDOFIJ ! NFAC*NDIM ! VECTEUR OF A LA FACE IJ
C
INTEGER IICELB ,
& ISRFAN , ISRFBN , IDIST , IDISTB , IPOND ,
& IDIJPF , IDIIPB , IDOFIJ
COMMON / IPGEOM / IICELB ,
& ISRFAN , ISRFBN , IDIST , IDISTB , IPOND ,
& IDIJPF , IDIIPB , IDOFIJ
C
C
C... AUXILIAIRES INDEPENDANTS DU NOMBRE DE PHASES
C ACCESSIBLES DIRECTEMENT DANS IA, RA
C
C Pointeur Dimension Description
C ICOCG ! NCELET*9 ! STOCKAGE POUR GRADIENT
C ICOCGB ! NCELBR*9 ! STOCKAGE POUR GRADIENT BORD
C ICOCI ! NCELET*9 ! STOCKAGE POUR GRADIENT SI INIT. PAR MC
C ICOCIB ! NCELBR*9 ! STOCKAGE POUR GRADIENT BORD SI INIT. PAR MC
C ITPUCO ! - ! VARIABLES DU COUPLAGE U-P
C IDIPAR ! NCELET ! DISTANCE A LA FACE DE TYPE 5 (PHASE 1) LA
C PLUS PROCHE
C IYPPAR ! NCELET ! YPLUS ASSOCIE (LES only)
C IFORBR ! NFABOR*3 ! EFFORTS AUX BORDS (SI POSTTRAITE)
C IIDFST ! NFABOR ! TABLEAU D'INDIRECTION POUR LES STRUCTURES
C MOBILES EN ALE
C
C... PARAMETRES DU MODULE THERMIQUE 1D
C NFPT1D ! ! NB DE FACES DE BORD AVEC MODULE THERMIQUE 1D
C INPPT1 ! NFPT1D ! NOMBRE DE MAILLES DANS LA PAROI
C IEPPT1 ! NFPT1D ! EPAISSEUR DE LA PAROI
C IRGPT1 ! NFPT1D ! RAISON DU MAILLAGE
C IIFPT1 ! NFPT1D ! NUMERO DE LA FACE
C ITPPT1 ! NFPT1D ! TEMPERATURE DE PAROI
C IICLT1 ! NFPT1D ! TYPE DE CONDITION LIMITE
C ITEPT1 ! NFPT1D ! TEMPERATURE EXTERIEURE
C IHEPT1 ! NFPT1D ! COEFFICIENT D ECHANGE EXTERIEUR
C IFEPT1 ! NFPT1D ! FLUX THERMIQUE EXTERIEUR
C IXLMT1 ! NFPT1D ! DIFFUSIVITE THERMIQUE
C IRCPT1 ! NFPT1D ! RHO*CP
C IDTPT1 ! NFPT1D ! PAS DE TEMPS
C
INTEGER ICOCG , ICOCGB , ICOCI , ICOCIB ,
& ITPUCO , IDIPAR , IYPPAR , IFORBR , IIDFST ,
& NFPT1D , NMXT1D , INPPT1 , IIFPT1 , IICLT1 ,
& IEPPT1 , IRGPT1 , ITPPT1 ,
& ITEPT1 , IHEPT1 , IFEPT1 ,
& IXLMT1 , IRCPT1 , IDTPT1
COMMON / IPAUX0 / ICOCG , ICOCGB , ICOCI , ICOCIB ,
& ITPUCO , IDIPAR , IYPPAR , IFORBR , IIDFST ,
& NFPT1D , NMXT1D , INPPT1 , IIFPT1 , IICLT1 ,
& IEPPT1 , IRGPT1 , ITPPT1 ,
& ITEPT1 , IHEPT1 , IFEPT1 ,
& IXLMT1 , IRCPT1 , IDTPT1
C
C... AUXILIAIRES ACCESSIBLES DIRECTEMENT DANS IA, RA
C TOUS CES TABLEAUX SONT (Dimension,NPHAS)
C
C Pointeur Dimension Description
C IITYPF ! NFABOR ! TYPE DES FACES DE BORD
C IITRIF ! NFABOR ! INDIRECTION POUR TRI FACES DE BORD
C IYPLBR ! NFABOR ! YPLUS BORD (SI POST-TRAITE)
C IISYMP ! NFABOR ! ZERO POUR ANNULER LE FLUX DE MASSE
C ! ! (SYMETRIES ET PAROIS AVEC CL COUPLEES)
C ! ! UN SINON
C IIFAPA ! NCELET ! NUMERO DE FACE DE BORD 5 LA PLUS PROCHE
C NCEPDC ! ! NOMBRE DE CELLULES AVEC PDC
C NCKPDC ! ! DIMENSION TENSEUR PDC
C IICEPD ! NCEPDC ! NUMERO DES CELLULES AVEC PerteDeCharge
C ICKUPD ! NCEPDC,NCKPDC ! VALEUR DES COEFF DE PDC
C NCETSM ! ! NOMBRE DE CELLULES AVEC TSM
C IICESM ! NCETSM ! NUMERO DES CELLULES AVEC TSMasse
C IITPSM ! NCETSM ! TYPE DE TSM
C ISMACE ! NCETSM ! VALEUR DE TSM
C IS2KW ! NCELET ! STOCKAGE DE 2 Sij.Sij EN K-OMEGA
C IDVUKW ! NCELET ! STOCKAGE DE DIVU EN K-OMEGA (EN MEME TEMPS QUE S2KW)
C
INTEGER IITYPF , IITRIF ,
& IISYMP , IYPLBR ,
& IIFAPA(NPHSMX), NCEPDC(NPHSMX), NCKPDC(NPHSMX),
& IICEPD(NPHSMX), ICKUPD(NPHSMX), NCETSM(NPHSMX),
& IICESM(NPHSMX), IITPSM(NPHSMX), ISMACE(NPHSMX),
& IS2KW (NPHSMX), IDVUKW(NPHSMX)
COMMON / IPOSUP / IITYPF , IITRIF ,
& IISYMP , IYPLBR ,
& IIFAPA , NCEPDC , NCKPDC ,
& IICEPD , ICKUPD , NCETSM ,
& IICESM , IITPSM , ISMACE ,
& IS2KW , IDVUKW
C
C
C... AUXILIAIRES ACCESSIBLES DIRECTEMENT DANS IA, RA
C POUR LA PERODICITE
C
C Pointeur Dimension | Description
C IDUDXY ! (NCELET-NCEL,3,3,NPHAS) ! SAUVEGARDE DU GRADIENT DE LA
C ! ! VITESSE EN CAS DE ROTATION
C IWDUDX ! (NCELET-NCEL,3,3,NPHAS) ! TABLEAU DE TRAVAIL LIE A DUDXYZ
C IDRDXY ! (NCELET-NCEL,6,3,NPHAS) ! SAUVEGARDE DU GRADIENT DE RIJ
C ! ! EN CAS DE ROTATION
C IWDRDX ! (NCELET-NCEL,6,3,NPHAS) ! TABLEAU DE TRAVAIL LIE A DRDXYZ
C
INTEGER IDUDXY,IDRDXY,IWDUDX,IWDRDX
COMMON / IPAUX1 / IDUDXY,IDRDXY,IWDUDX,IWDRDX
C
C
C FIN
c@z
syntax highlighted by Code2HTML, v. 0.9.1