
DEBUT();

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

ELEM=MODI_MAILLAGE(reuse =ELEM,
                   MAILLAGE=ELEM,
                   ORIE_PEAU_3D=_F(GROUP_MA='ORIE_A',),);

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.03,
                               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=500.0,),
                      LIAISON_MAIL=_F(GROUP_MA_MAIT='Face_1',
                                      GROUP_MA_ESCL='Box_1',),);

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

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

FIN();
#CHECKSUM:91fc4dde42d60675958c1043308fe7ec  -:FIN CHECKSUM