C PRE7 SOURCE BECC 11/05/18 21:15:31 6974 SUBROUTINE PRE7() C************************************************************************ C C PROJET : CASTEM 2000 C C NOM : PRE7 C C DESCRIPTION : Voir PRET C C Resolution des Equations d'Euler, VF, C "cell-centred approach". GFMP, C stiffened gases. C C Calcul des etats "gauche et droit" aux C interfaces. C C LANGAGE : FORTRAN 77 + ESOPE 2000 (avec extensions CISI) C C AUTEUR : A. BECCANTINI, DEN/DM2S/SFME/LTMF C C************************************************************************ C C PHRASE D'APPEL (GIBIANE) : C C 1) Ghost Fluid Method for the poor C C 1a) 2nd order in space, single species C C CHAMPH CHAMRN CHAMV CHAMP = C 'PRET' 'GFMP' LMOT1 MOD1 C CHPPH CHPGRPH CHPLIP C CHPRN CHPGRR CHPLIR C CHPVN CHPGRV CHPLIV C CHPP CHPGRP CHPLIP ; C or C C 1b) 2nd order in space, multispecies C C CHAMPH CHAMRN CHAMV CHAMP CHAMY CHAMAL = C 'PRET' 'GFMP' LMOT1 MOD1 C CHPPH CHPGRPH CHPLIP C CHPRN CHPGRR CHPLIR C CHPVN CHPGRV CHPLIV C CHPP CHPGRP CHPLIP C CHPYN CHPGRY CHPLIY C CHPAN CHPGRA CHPLIA C ; C C ENTREES : C C 'GFMP' : mot clé C C LMOT1 : OBJET LISTMOTS, nom des especes dans C les equations d'Euler (vide dans C le cas monoespece) C C MOD1 : OBJET MODELE de TYPE NAVIER_STOKES C C CHPPH CHPGRP CHPLIP : CHPOINTs "CENTRE": C phi, its gradient, its limiter C C CHPRN CHPGRR CHPLIR : CHPOINTs "CENTRE": C rho, its gradient, its limiter C C CHPVN CHPGRV CHPLIV : CHPOINTs "CENTRE": C v, its gradient, its limiter C C CHPVP CHPGRP CHPLIP : CHPOINTs "CENTRE": C p its gradient, its limiter C C CHPYN CHPGRY CHPLIY : CHPOINTs "CENTRE": C y, its gradient, its limiter C C CHPAN CHPGRA CHPLIA : CHPOINTs "CENTRE": C alpha, its gradient, its limiter C C C SORTIES : C C CHAMPH CHAMRN CHAMV CHAMP CHAMY CHAMAL: C MCHAML "FACEL" C containing phi, density C velocity, pressure, mass fractions C volume fractions on the left C and on the right C C************************************************************************ C C HISTORIQUE (Anomalies et modifications éventuelles) C C HISTORIQUE : Crée le 03.11.10. C C************************************************************************ C IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO C C******* ORDESP = 2, ORDTEM = 1 C CALL PRE71() IF(IERR .NE. 0) GOTO 9999 C 9999 CONTINUE C RETURN END