Sources Esope | Cast3M

modthe
C MODTHE    SOURCE    CHAT      12/06/07    21:15:46     7389
      SUBROUTINE MODTHE(MOMODL,NMOD)
*----------------------------------------------------------------------
*     -  CAS DE LA FORMULATION 'THERMIQUE' +
*    DEFINITION DES NOMS DES MATERIAUX
*----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      CHARACTER*16 MOMODL(*)
*
*     Noms des materiaux
*
      NMOD=5
      MOMODL(1)='PHASE'
      MOMODL(2)='CONVECTION'
      MOMODL(3)='ADVECTION'
      MOMODL(4)='RAYONNEMENT'
      MOMODL(5)='CONDUCTION'
      RETURN
      END