Télécharger pre7.eso

Retour à la liste

Numérotation des lignes :

  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
  103. CALL PRE71()
  104. IF(IERR .NE. 0) GOTO 9999
  105. C
  106. 9999 CONTINUE
  107. C
  108. RETURN
  109. END
  110.  
  111.  
  112.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales