C MODDIF    SOURCE    CB215821  26/04/13    21:15:02     12515          

C=======================================================================
C=  Objet MODELE  -  Cas de la formulation 'DIFFUSION'                 =
C=                                                                     =
C=   Definition des MODELEs de COMPORTEMENT associes a la formulation  =
C=======================================================================

      SUBROUTINE MODDIF (MOMODL,NMOD)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)


-INC PPARAM
-INC CCOPTIO

      CHARACTER*16 MOMODL(*)

      NMOD=8
C -----------------
C  Modele LINEAIRE (par defaut)
C -----------------
      MOMODL(1)='FICK            '

C -----------------------
C  MODELEs NON LINEAIREs
C -----------------------
      MOMODL(2)='SORET           '
      MOMODL(3)='UTILISATEUR     '
      MOMODL(4)='DISSIPATION     '
      MOMODL(5)='AFFINE          '
      MOMODL(6)='VISQUEUSE       '
      MOMODL(7)='ADVECTION       '
      MOMODL(8)='CONSERVATIVE    '

      RETURN
      END