Télécharger moddif.eso

Retour à la liste

Numérotation des lignes :

  1. C MODDIF SOURCE KICH 14/07/16 21:15:53 8101
  2.  
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'DIFFUSION' =
  5. C= =
  6. C= Definition des MODELEs de COMPORTEMENT associes a la formualtion =
  7. C=======================================================================
  8.  
  9. SUBROUTINE MODDIF (MOMODL,NMOD)
  10.  
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14. -INC CCOPTIO
  15.  
  16. CHARACTER*16 MOMODL(*)
  17.  
  18. NMOD=6
  19. C -----------------
  20. C Modele LINEAIRE (par defaut)
  21. C -----------------
  22. MOMODL(1)='FICK '
  23. C -----------------------
  24. C MODELEs NON LINEAIREs
  25. C -----------------------
  26. MOMODL(2)='SORET '
  27. MOMODL(3)='UTILISATEUR '
  28. MOMODL(4)='DISSIPATION'
  29. MOMODL(5)='AFFINE'
  30. MOMODL(6)='VISQUEUSE'
  31.  
  32. RETURN
  33. END
  34.  
  35.  
  36.  
  37.  

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