C MODDIF    SOURCE    FANDEUR   10/12/17    21:18:01     6427           

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

      SUBROUTINE MODDIF (MOMODL,NMOD)

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

-INC CCOPTIO

      CHARACTER*16 MOMODL(*)

      NMOD=3
C -----------------
C  Modele LINEAIRE (par defaut)
C -----------------
      MOMODL(1)='FICK            '
C -----------------------
C  MODELEs NON LINEAIREs
C -----------------------
      MOMODL(2)='SORET           '
      MOMODL(3)='UTILISATEUR     '

      RETURN
      END