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    OF166741  24/12/13    21:15:46     12097          
  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.       INTEGER NBOPT, ICELL
  41. C
  42.       PARAMETER (NBOPT=3)
  43.       CHARACTER*8 LOPT(NBOPT)
  44. C
  45.       DATA LOPT/'GRAVMONO','GRAVKEPS','AXIS'/
  46. C
  47.       CALL LIRMOT(LOPT,NBOPT,ICELL,1)
  48.       IF(IERR .NE. 0) GOTO 9999
  49.       IF(ICELL .EQ. 1)THEN
  50. C        'GRAV    '
  51. C        Gravité
  52.          CALL FIMVF1()
  53.          IF(IERR .NE. 0) GOTO 9999
  54.       ELSEIF(ICELL .EQ. 2) THEN
  55.          CALL FIMTR1()
  56.          IF(IERR .NE. 0) GOTO 9999
  57.       ELSEIF(ICELL .EQ. 3) THEN
  58.          CALL FIMAXI()
  59.          IF(IERR .NE. 0) GOTO 9999
  60.       ENDIF
  61.  9999 CONTINUE
  62.       RETURN
  63.       END
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  

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