C MOCOTH    SOURCE    MB234859  25/08/26    21:15:06     12343          
C=======================================================================
C=  Objet MODELE  -  Cas de la formulation 'THERMIQUE'                 =
C=                                                                     =
C=  Definition des noms de modeles de MATERIAU                         =
C=======================================================================
C
      SUBROUTINE MOCOTH(MOMODL,NMOD)
C
      IMPLICIT INTEGER(I-N)
C
      CHARACTER*16 MOMODL(*)
C
      NMOD=6
      MOMODL(1)='CONDUCTION      '
      MOMODL(2)='CONVECTION      '
      MOMODL(3)='RAYONNEMENT     '
      MOMODL(4)='PHASE           '
      MOMODL(5)='ADVECTION       '
      MOMODL(6)='SOURCE          '

      END