Esope source files

   1 : C PRIMIT    SOURCE    BECC      11/05/18    21:15:36     6973           
   2 :       SUBROUTINE PRIMIT()
   3 : C************************************************************************
   4 : C
   5 : C PROJET            :  CASTEM 2000
   6 : C
   7 : C NOM               :  PRIMIT (OPERATEUR GIBIANE)
   8 : C
   9 : C DESCRIPTION       :  Calcul des variables primitives (et du "gamma") 
  10 : C                      pour les sivantes models du gaz:
  11 : C    
  11 : 

Warning:  preg_replace(): Compilation failed: unmatched parentheses at offset 9 in C:\xampp\htdocs\cast3m_kit_local_fr_en_2014\sources.php on line 147

  12 : C
  12 : 

Warning:  preg_replace(): Compilation failed: unmatched parentheses at offset 9 in C:\xampp\htdocs\cast3m_kit_local_fr_en_2014\sources.php on line 147

  13 : C
  14 : C                      3) gas parfait mono/multi-especes ("thermally perfect")
  15 : C
  16 : C                      5) Modele bifluide ("two-fluid flow, water + air")
  17 : C
  18 : C                      6) Modele bifluide pour la combustion ("RDEM model")
  19 : C
  20 : C                      7) Modele bifluide ("Ghost Fluid method for the poor")
  21 : C
  22 : C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  23 : C      
  24 : C AUTEUR            :  A. BECCANTINI, DRN/DMT/SEMT/TTMF                        
  25 : C
  26 : C************************************************************************
  27 : C
  28 : C
  29 : C APPELES (E/S)     :  LIRCHA, OPTLI, ERREUR
  30 : 
  31 : C
  32 : C APPELES (Calcul)  :
  33 : C
  34 : C PRIMIT
  35 : C    |
  36 : C    |----- PRIM1E ---- PR1ECA
  37 : C    |
  38 : C    |----- PRIMME ---- PRMECA
  39 : C    |
  40 : C    |----- PRIMI1 ---- PRIMI2 ---- PRITEM
  41 : C    |
  42 : C    |----- PRIJAC
  43 : C    |
  44 : C    |----- PRIM2F 
  45 : C    |
  46 : C    |----- PRIDEM
  47 : C    |
  48 : C    |----- PRIGFM
  49 : C
  50 : C    
  51 : C
  52 : C************************************************************************
  53 : C
  54 : C PHRASE D'APPEL (GIBIANE) : voir PRIMIE, PRIMME, PRIDET
  55 : C
  56 : C      
  57 : C************************************************************************
  58 : C
  59 : C HISTORIQUE (Anomalies et modifications éventuelles)
  60 : C
  61 : C HISTORIQUE :  Créée le 12.1.98.
  62 : C
  63 : C               Modif: 14.12.98 model gas parfait mono/multi-especes 
  64 : C                        ("thermally perfect")
  65 : C
  66 : C               Modif: 20/11/05 model bifluid
  67 : C
  68 : C               Modif: 06/11/09  Discrete Equation Method approach
  69 : C
  70 : C               Modif: 30/04/10  Ghost Fluid Method for the poor
  71 : C 
  72 : C************************************************************************
  73 : C
  74 : C
  75 :       IMPLICIT INTEGER(I-N)
  76 :       INTEGER IP,IRET, ICOND,NBOPT,NBOPT0
  77 :       PARAMETER(NBOPT=7)
  78 :       CHARACTER*(8) TOPTIO(NBOPT),MOTOP
  79 : C      
  80 :       DATA TOPTIO/'PERFMONO','PERFMULT','PERFTEMP','CONSPRIM',
  81 :      &            'TWOFLUID','DEM     ','GFMP    '/
  82 : C     
  83 : C**** Les Includes
  84 : C
  85 : -INC CCOPTIO       
  86 : C
  87 : C**** Lecture de l'option 
  88 : C
  89 :       ICOND = 0
  89 :       CALL LIRCHA(MOTOP,ICOND,IRET)
  90 :       IF(IRET.EQ.0) THEN
  90 :          CALL PRIMI0
  91 :          RETURN
  92 :       ENDIF
  93 :       NBOPT0 = NBOPT
  93 :       CALL OPTLI(IP,TOPTIO,MOTOP,NBOPT0)
  94 :       IF(IP .EQ. 0) THEN
  95 : C
  96 : C******* Message d'erreur standard
  97 : C        251 2
  98 : C        Tentative d'utilisation d'une option non implémentée
  99 : C         
  99 :          CALL ERREUR(251)
 100 :       ELSEIF(IP .EQ. 1)THEN
 101 : C
 101 : C******* Gaz 'calorically perfect' monoespece
 102 : C
 102 :          CALL PRIM1E()
 103 :          IF(IERR .NE. 0) GOTO 9999
 104 :       ELSEIF(IP .EQ. 2)THEN
 105 : C
 105 : C******* Gaz 'calorically perfect' multiespeces
 106 : C
 106 :          CALL PRIMME()
 107 :          IF(IERR .NE. 0) GOTO 9999
 108 :       ELSEIF(IP .EQ. 3)THEN
 109 : C
 110 : C******* Gaz 'thermally perfect' mono/multiespeces
 111 : C
 111 :          CALL PRIMI1()
 112 :          IF(IERR .NE. 0) GOTO 9999
 113 :       ELSEIF(IP .EQ. 4)THEN
 114 : C
 114 : C******* Gaz 'calorically perfect', la matrice jacobienne des 
 115 : C        variables conservatives par rapport aux variables primitives
 116 : C
 117 : C
 117 :          CALL PRIJAC()
 118 :          IF(IERR .NE. 0) GOTO 9999
 119 :       ELSEIF(IP .EQ. 5)THEN
 120 : C
 121 : C******* Modele bifluide
 122 : C
 122 :          CALL PRIM2F()
 123 :          IF(IERR .NE. 0) GOTO 9999
 124 :       ELSEIF(IP .EQ. 6)THEN
 125 : C
 126 : C******* Modele bifluide
 127 : C
 127 :          CALL PRIDEM()
 128 :          IF(IERR .NE. 0) GOTO 9999
 129 :       ELSEIF(IP .EQ. 7)THEN
 130 : C
 131 : C******* Ghost fluid method for the poor
 132 : C
 132 :          CALL PRIGFM()
 133 :          IF(IERR .NE. 0) GOTO 9999
 134 :       ELSE
 135 : C
 136 : C******* Message d'erreur standard
 137 : C        5 2
 138 : C        Erreur anormale.contactez votre support
 139 : C
 139 :          CALL ERREUR(5)
 140 :       ENDIF
 141 : C
 142 :  9999 CONTINUE
 143 :       RETURN
 144 :       END
 145 : 
 146 : 
 147 : 
 148 : 
 149 : 
 150 : 
 151 :  
 152 :  
 153 :  
 154 :  
 155 :  
 156 :  
 157 :  
 158 :  
 159 :