C MODCON    SOURCE    MB234859  25/08/26    21:15:06     12343          
C=======================================================================
C=  Objet MODELE  -  Cas de la formulation 'CONVECTION'                =
C=                                                                     =
C=  Definition des noms de modeles de MATERIAU                         =
C=======================================================================
C
      SUBROUTINE MODCON(MOMODL,NMOD)
C
      IMPLICIT INTEGER(I-N)
C
      CHARACTER*16 MOMODL(*)
C
      IF (IDIM.EQ.1) THEN
        NMOD=0
      ELSE
        NMOD=2
        MOMODL(1)='INFERIEURE      '
        MOMODL(2)='SUPERIEURE      '
      ENDIF

      END