Esope source files

   1 : C MODDIF    SOURCE    FANDEUR   10/12/17    21:18:01     6427           
   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=3
  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 : 
  29 :       RETURN
  30 :       END
  31 : 
  32 :