
DEBUT(LANG='en',);

ELEM=LIRE_MAILLAGE(UNITE=20,
                   FORMAT='MED',);

ELEM=MODI_MAILLAGE(reuse =ELEM,
                   MAILLAGE=ELEM,
                   ORIE_PEAU_3D=_F(GROUP_MA=('Face_1','Face_2','Face_3',),),);

model=AFFE_MODELE(MAILLAGE=ELEM,
                  AFFE=(_F(TOUT='OUI',
                           PHENOMENE='THERMIQUE',
                           MODELISATION='3D',),
                        _F(GROUP_MA='Face_1',
                           PHENOMENE='THERMIQUE',
                           MODELISATION='COQUE',),),);

carael=AFFE_CARA_ELEM(MODELE=model,
                      COQUE=_F(GROUP_MA='Face_1',
                               EPAIS=0.1,
                               COQUE_NCOU=1,),);

MA1=DEFI_MATERIAU(THER=_F(LAMBDA=0.54,),);

MATERIAL=AFFE_MATERIAU(MAILLAGE=ELEM,
                       AFFE=_F(TOUT='OUI',
                               MATER=MA1,),);

Thermo=AFFE_CHAR_THER(MODELE=model,
                      TEMP_IMPO=(_F(GROUP_MA='Face_1',
                                    TEMP_SUP=500.0,),
                                 _F(GROUP_MA='Face_3',
                                    TEMP=0.0,),),
                      LIAISON_GROUP=_F(GROUP_MA_1='Face_1',
                                       GROUP_MA_2='Face_2',
                                       DDL_1='TEMP_INF',
                                       COEF_MULT_1=1.0,
                                       COEF_MULT_2=-1.0,
                                       COEF_IMPO=1.0,),);

TEMP=THER_LINEAIRE(MODELE=model,
                   CHAM_MATER=MATERIAL,
                   CARA_ELEM=carael,
                   EXCIT=_F(CHARGE=Thermo,),);

IMPR_RESU(FORMAT='MED',
          RESU=_F(RESULTAT=TEMP,),);

FIN();
#CHECKSUM:2f7e3f6420f163b29d11f66933da99ed  -:FIN CHECKSUM