Télécharger konv1.eso

Retour à la liste

Numérotation des lignes :

  1. C KONV1 SOURCE BECC 11/05/26 21:15:53 6981
  2. SUBROUTINE KONV1()
  3. C************************************************************************
  4. C
  5. C PROJET : CASTEM 2000
  6. C
  7. C NOM : KONV1
  8. C
  9. C DESCRIPTION : Subroutine appellée par KONV
  10. C
  11. C Modelisation 2D/3D des equations d'Euler
  12. C
  13. C Calcul du residu / jacobien / DELTAT
  14. C
  15. C LANGUAGE : FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  16. C
  17. C AUTEUR : A. BECCANTINI, DRN/DMT/SEMT/LTMF
  18. C
  19. C************************************************************************
  20. C
  21. C
  22. C APPELES (E/S) : LIRMOT, ERREUR
  23. C
  24. C
  25. C APPELES : KON1 (gaz "calorically perfect")
  26. C KON2 (gaz "calorically perfect multiespeces")
  27. C KONV12 (gaz "thermally perfect")
  28. C KONV13 (gaz "thermally perfect"+DEM)
  29. C KONV14 (transport des scalaires)
  30. C KFMM (Free matrix methods)
  31. C KFM1 (Free matrix methods 2)
  32. C KONV2F (two-fluid flow)
  33. C KONV15 (Ghost fluid method for the poor)
  34. C
  35. C************************************************************************
  36. C
  37. C
  38. C***********************************************************************
  39. C
  40. C************************************************************************
  41. C
  42. C HISTORIQUE (Anomalies et modifications éventuelles)
  43. C
  44. C************************************************************************
  45. C
  46. IMPLICIT INTEGER(I-N)
  47. -INC CCOPTIO
  48. C
  49. INTEGER NBOP,IOP
  50. PARAMETER (NBOP=9)
  51. CHARACTER*8 LOPTI(NBOP)
  52. LOGICAL LOGME
  53. C
  54. DATA LOPTI/'PERFMONO','PERFMULT','PERFTEMP','CLAUDEIS',
  55. & 'PMONOFMM','PMON1FMM','TWOFLUID','DEM','GFMP'/
  56. C
  57. C
  58. C**** Le modele du GAZ
  59. C
  60. CALL LIRMOT(LOPTI,NBOP,IOP,1)
  61. IF(IERR .NE. 0) GOTO 9999
  62. IF(IOP .EQ. 1)THEN
  63. LOGME=.FALSE.
  64. CALL KON1(LOGME)
  65. IF(IERR .NE. 0) GOTO 9999
  66. ELSEIF(IOP .EQ. 2)THEN
  67. LOGME=.TRUE.
  68. CALL KON2(LOGME)
  69. IF(IERR .NE. 0) GOTO 9999
  70. ELSEIF(IOP .EQ. 3)THEN
  71. CALL KONV12
  72. IF(IERR .NE. 0) GOTO 9999
  73. ELSEIF(IOP .EQ. 4)THEN
  74. CALL KONV14
  75. IF(IERR .NE. 0) GOTO 9999
  76. ELSEIF(IOP .EQ. 5)THEN
  77. CALL KFMM
  78. IF(IERR .NE. 0) GOTO 9999
  79. ELSEIF(IOP .EQ. 6)THEN
  80. CALL KFM1
  81. IF(IERR .NE. 0) GOTO 9999
  82. ELSEIF(IOP .EQ. 7)THEN
  83. CALL KONV2F()
  84. IF(IERR .NE. 0) GOTO 9999
  85. ELSEIF(IOP .EQ. 8)THEN
  86. CALL KONV13()
  87. ELSEIF(IOP .EQ. 9)THEN
  88. CALL KONV15()
  89. IF(IERR .NE. 0) GOTO 9999
  90. ELSE
  91. C
  92. C******* Message d'erreur standard
  93. C 21 2
  94. C Données incompatibles
  95. C
  96. CALL ERREUR(21)
  97. GOTO 9999
  98. ENDIF
  99. 9999 RETURN
  100. END
  101.  
  102.  

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