Télécharger pre4.eso

Retour à la liste

Numérotation des lignes :

  1. C PRE4 SOURCE CHAT 05/01/13 02:25:12 5004
  2. SUBROUTINE PRE4()
  3. C************************************************************************
  4. C
  5. C PROJET : CASTEM 2000
  6. C
  7. C NOM : PRE4
  8. C
  9. C DESCRIPTION : Transport de scalaires passifs (vitesse aux faces)
  10. C
  11. C LANGAGE : FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  12. C
  13. C AUTEUR : A. BECCANTINI, DRN/DMT/SEMT/TTMF
  14. C
  15. C************************************************************************
  16. C
  17. C
  18. C APPELES (Outils) : LIRENT, ERREUR
  19. C
  20. C APPELES (Calcul) :
  21. C
  22. C PRE4-------------- PRE41 (1er ordre en espace)
  23. C
  24. C************************************************************************
  25. C
  26. C PHRASE D'APPEL (GIBIANE) :
  27. C
  28. C a) 1er ordre en espace (1er ordre en temps)
  29. C
  30. C CHAM1S = 'PRET' 'CLAUDEIS' 'FACE' ENTI1 TAB1 CHPO1 ;
  31. C
  32. C
  33. C ENTREES :
  34. C
  35. C ENTI1 : ordre en espace (=1)
  36. C
  37. C MOD1 : OBJET MODELE de TYPE NAVIER_STOKES
  38. C
  39. C CHPO1 : CHPOINT "CENTRE" contenant les scalaires à tranporter
  40. C
  41. C SORTIES :
  42. C
  43. C CHAM1S : MCHAML "FACEL" contenant les s scalaires à tranporter
  44. C (a gauche et a droite de chaque face).
  45. C Autant de composantes que CHPO1
  46. C
  47. C
  48. C************************************************************************
  49. C
  50. C HISTORIQUE (Anomalies et modifications éventuelles)
  51. C
  52. C HISTORIQUE : Créée le 28.11.01
  53. C
  54. C************************************************************************
  55. C
  56. C
  57. C**** Variables de COOPTIO
  58. C
  59. C INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  60. C & ,IOTER, IOLEC, IOIMP, IOCAR, IOACQ
  61. C & ,IOPER, IOSGB, IOGRA, IOSAU, IORES
  62. C & ,IECHO, IIMPI, IOSPI
  63. C & ,IDIM
  64. C & ,MCOORD
  65. C & ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  66. C & ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  67. C & ,NORINC,NORVAL,NORIND,NORVAD
  68. C & ,NUCROU, IPSAUV
  69. C
  70. C**** Les variables
  71. C
  72. IMPLICIT INTEGER(I-N)
  73. INTEGER ICOND, IRETOU
  74. & ,ORDESP,NBOPT, NBOPT0,IP
  75. PARAMETER(NBOPT=1)
  76. CHARACTER*(8) TOPTIO(NBOPT),MOTOP
  77. C
  78. DATA TOPTIO/'FACE'/
  79. C
  80. C**** Les Includes
  81. C
  82. -INC CCOPTIO
  83. C
  84. C**** Les mots clés
  85. C
  86. ICOND = 1
  87. CALL LIRCHA(MOTOP,ICOND,IRETOU)
  88. IF(IERR .NE. 0) GOTO 9999
  89. NBOPT0 = NBOPT
  90. CALL OPTLI(IP,TOPTIO,MOTOP,NBOPT0)
  91. IF(IERR .NE. 0)GOTO 9999
  92. IF(IP.NE.1)THEN
  93. *
  94. **** Tentative d'utilisation d'une option non-implementée
  95. C
  96. CALL ERREUR(251)
  97. GOTO 9999
  98. ENDIF
  99. C
  100. C**** Initialisation des parametres d'erreur
  101. C
  102. MOTERR(1:40) = ' '
  103. C
  104. C**** Lecture ORDESP
  105. C
  106. ICOND = 1
  107. CALL LIRENT(ORDESP,ICOND,IRETOU)
  108. IF(IERR .NE. 0) GOTO 9999
  109. IF((ORDESP .LT. 1) .OR. (ORDESP .GT. 2))THEN
  110. C
  111. C******* Message d'erreur standard
  112. C -301 0 %m1:40
  113. C
  114. MOTERR(1:40) = 'ENTI1 = ??? '
  115. WRITE(IOIMP,*) MOTERR
  116. C
  117. C******* Message d'erreur standard
  118. C Entier valant: %i1
  119. C -2 0
  120. C
  121. INTERR(1) = ORDESP
  122. CALL ERREUR(-2)
  123. C
  124. C******* Message d'erreur standard
  125. C 21 2
  126. C Données incompatibles
  127. C
  128. CALL ERREUR(21)
  129. GOTO 9999
  130. ENDIF
  131. IF(ORDESP .EQ. 1)THEN
  132. C
  133. C******* ORDESP = 1
  134. C
  135. CALL PRE41()
  136. ELSE
  137. C
  138. C******* Message d'erreur standard
  139. C 5 3
  140. C Erreur anormale. Contactez votre support
  141. C
  142. CALL ERREUR(5)
  143. ENDIF
  144. C
  145. 9999 CONTINUE
  146. C
  147. RETURN
  148. END
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  

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