Télécharger la plaquette Cast3M


fr en

Télécharger fimpvf.eso

Retour à la liste

Numérotation des lignes : 

fimpvf

  1. C FIMPVF    SOURCE    CHAT      05/01/13    00:00:49     5004
  2.       SUBROUTINE FIMPVF
  3. C************************************************************************
  4. C
  5. C PROJET            :  CASTEM 2000
  6. C
  7. C NOM               :  FIMPVF
  8. C
  9. C DESCRIPTION       :  Subroutine appellée par YFIMP
  10. C
  11. C                      Modelisation 2D/3D des equations d'Euler/NS
  12. C                      Termes source
  13. C
  14. C                      Calcul du flux/residu
  15. C
  16. C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  17. C
  18. C AUTEUR            :  A. BECCANTINI, DEN/DM2S/SEMT/LTMF
  19. C
  20. C************************************************************************
  21. C
  22. C
  23. C************************************************************************
  24. C
  25. C HISTORIQUE (Anomalies et modifications éventuelles)
  26. C
  27. C HISTORIQUE : Décembre 2003. The option 'GRAVKEPS' is added
  28. C              in order to account for the term source of
  29. C              the Multi-Component NS equations with k-\eps model.
  30. C
  31. C            : February 2004. Mode 2D AXIS: contribution of the pressure
  32. C              to the residual
  33. C
  34. C************************************************************************
  35.       IMPLICIT INTEGER(I-N)
  36.  
  37. -INC PPARAM
  38. -INC CCOPTIO
  39. C
  40. C     Variables from CCOPTIO
  41. C
  42. C      INTEGER IPLLB, IERPER, IERMAX, IERR, INTERR
  43. C     &        ,IOTER,   IOLEC,  IOIMP,     IOCAR,  IOACQ
  44. C     &        ,IOPER,   IOSGB,  IOGRA,     IOSAU,  IORES
  45. C     &        ,IECHO,   IIMPI,  IOSPI
  46. C     &        ,IDIM,    IFICLE, IPREFI
  47. C     &        ,MCOORD
  48. C     &        ,IFOMOD, NIFOUR, IFOUR, NSDPGE, IONIVE
  49. C     &        ,NGMAXY, IZROSF, ISOTYP, IOSCR,LTEXLU
  50. C     &        ,NORINC,NORVAL,NORIND,NORVAD
  51. C     &        ,NUCROU, IPSAUV
  52. C
  53.       INTEGER NBOPT, ICELL
  54. C
  55.       PARAMETER (NBOPT=3)
  56.       CHARACTER*8 LOPT(NBOPT)
  57. C
  58.       DATA LOPT/'GRAVMONO','GRAVKEPS','AXIS'/
  59. C
  60.       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  61.       IF(IERR .NE. 0) GOTO 9999
  62.       IF(ICELL .EQ. 1)THEN
  63. C        'GRAV    '
  64. C        Gravité
  65.          CALL FIMVF1()
  66.          IF(IERR .NE. 0) GOTO 9999
  67.       ELSEIF(ICELL .EQ. 2) THEN
  68.          CALL FIMTR1()
  69.          IF(IERR .NE. 0) GOTO 9999
  70.       ELSEIF(ICELL .EQ. 3) THEN
  71.          CALL FIMAXI()
  72.          IF(IERR .NE. 0) GOTO 9999
  73.       ENDIF
  74.  9999 CONTINUE
  75.       RETURN
  76.       END
  77.  
  78.  
  79.  
  80.  
  81.  

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