Esope source files

   1 : C PRE7      SOURCE    BECC      11/05/18    21:15:31     6974           
   2 :       SUBROUTINE PRE7()
   3 : C************************************************************************
   4 : C
   5 : C PROJET            :  CASTEM 2000
   6 : C
   7 : C NOM               :  PRE7
   8 : C
   9 : C DESCRIPTION       :  Voir PRET 
  10 : C
  11 : C                      Resolution des Equations d'Euler, VF,
  12 : C                     "cell-centred approach". GFMP, 
  13 : C                      stiffened gases.
  14 : C      
  15 : C                      Calcul des etats "gauche et droit" aux
  16 : C                      interfaces.
  17 : C     
  18 : C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  19 : C      
  20 : C AUTEUR            :  A. BECCANTINI, DEN/DM2S/SFME/LTMF
  21 : C     
  22 : C************************************************************************
  23 : C
  24 : C PHRASE D'APPEL (GIBIANE) :
  25 : C
  26 : C 1) Ghost Fluid Method for the poor
  27 : C
  28 : C 1a) 2nd order in space, single species
  29 : C
  30 : C       CHAMPH CHAMRN CHAMV CHAMP = 
  31 : C          'PRET' 'GFMP' LMOT1  MOD1   
  32 : C                               CHPPH CHPGRPH CHPLIP  
  33 : C                               CHPRN CHPGRR CHPLIR
  34 : C                               CHPVN CHPGRV CHPLIV
  35 : C                               CHPP  CHPGRP CHPLIP ;
  36 : C or
  37 : C
  38 : C 1b) 2nd order in space, multispecies
  39 : C
  40 : C       CHAMPH CHAMRN CHAMV CHAMP CHAMY CHAMAL = 
  41 : C          'PRET' 'GFMP' LMOT1  MOD1   
  42 : C                               CHPPH CHPGRPH CHPLIP  
  43 : C                               CHPRN CHPGRR CHPLIR
  44 : C                               CHPVN CHPGRV CHPLIV
  45 : C                               CHPP  CHPGRP CHPLIP
  46 : C                               CHPYN CHPGRY CHPLIY 
  47 : C                               CHPAN CHPGRA CHPLIA 
  48 : C       ;
  49 : C
  50 : 
  51 : C ENTREES  : 
  52 : C
  53 : C           'GFMP'       : mot clé 
  54 : C
  55 : C            LMOT1       : OBJET LISTMOTS, nom des especes dans
  56 : C                          les equations d'Euler (vide dans
  57 : C                          le cas monoespece)
  58 : C                    
  59 : C            MOD1        : OBJET MODELE de TYPE NAVIER_STOKES
  60 : C
  61 : C            CHPPH CHPGRP CHPLIP  : CHPOINTs "CENTRE":
  62 : C                          phi, its gradient, its limiter
  63 : C
  64 : C            CHPRN CHPGRR CHPLIR  : CHPOINTs "CENTRE":
  65 : C                          rho, its gradient, its limiter
  66 : C
  67 : C            CHPVN CHPGRV CHPLIV  : CHPOINTs "CENTRE":
  68 : C                          v, its gradient, its limiter
  69 : C
  70 : C            CHPVP CHPGRP CHPLIP  : CHPOINTs "CENTRE":
  71 : C                          p its gradient, its limiter
  72 : C
  73 : C            CHPYN CHPGRY CHPLIY  : CHPOINTs "CENTRE":
  74 : C                          y, its gradient, its limiter
  75 : C
  76 : C            CHPAN CHPGRA CHPLIA  : CHPOINTs "CENTRE":
  77 : C                          alpha, its gradient, its limiter
  78 : C
  79 : 
  80 : C
  81 : C SORTIES  : 
  82 : C
  83 : C            CHAMPH CHAMRN CHAMV CHAMP CHAMY CHAMAL:  
  84 : C                           MCHAML "FACEL" 
  85 : C                           containing phi, density
  86 : C                           velocity, pressure, mass fractions
  87 : C                           volume fractions on the left 
  88 : C                           and on the right
  89 : C
  90 : C************************************************************************
  91 : C
  92 : C HISTORIQUE (Anomalies et modifications éventuelles)
  93 : C
  94 : C HISTORIQUE :  Crée le 03.11.10.
  95 : C 
  96 : C************************************************************************
  97 : C
  98 :       IMPLICIT INTEGER(I-N)
  99 : -INC CCOPTIO
 100 : C
 101 : C******* ORDESP = 2, ORDTEM = 1
 102 : C
 102 :       CALL PRE71()
 103 :       IF(IERR .NE. 0) GOTO 9999
 104 : C
 105 :  9999 CONTINUE
 106 : C
 107 :       RETURN
 108 :       END
 109 :  
 110 :