Télécharger la plaquette Cast3M


fr en

Télécharger pre7.eso

Retour à la liste

Numérotation des lignes : 

pre7

  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.  
  100. -INC PPARAM
  101. -INC CCOPTIO
  102. C
  103. C******* ORDESP = 2, ORDTEM = 1
  104. C
  105.       CALL PRE71()
  106.       IF(IERR .NE. 0) GOTO 9999
  107. C
  108.  9999 CONTINUE
  109. C
  110.       RETURN
  111.       END
  112.  
  113.  
  114.  

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