with radiation I am at 7000

DEBUT(LANG='EN')
V_1 = 1
Reference_Temp = 20
Initial_Temp = 80
Weld_Temp = 2500
eta = 1
q = 2.1e6
u = 7e-3
Q = q * u * eta
L_1 = 0.0162397
t_1 = L_1 / u
MESH_T = LIRE_MAILLAGE(UNITE=2)
MESH_T = MODI_MAILLAGE(reuse=MESH_T,
ECHELLE=0.001,
MAILLAGE=MESH_T)
MESH_T = DEFI_GROUP(reuse=MESH_T,
CREA_GROUP_MA=_F(GROUP_MA=('Group_Of_All_Volumes', ),
NOM='ALL_VOLUMES'),
MAILLAGE=MESH_T)
MESH_T = DEFI_GROUP(reuse=MESH_T,
CREA_GROUP_MA=(_F(NOM='PARTS',
UNION=('BODY', 'BONNET')),
_F(DIFFE=('ALL_VOLUMES', 'PARTS', 'WELD_1_1'),
NOM='WELD_OFF')),
MAILLAGE=MESH_T)
MODEL_T = AFFE_MODELE(AFFE=_F(GROUP_MA=('PARTS', 'WELD_1_1', 'ambient', 'ambient_1_1', 'ambient_0_2', 'ambient_0_3', 'ambient_0_4'),
MODELISATION='3D_DIAG',
PHENOMENE='THERMIQUE'),
MAILLAGE=MESH_T)
DUMMY_T = AFFE_MODELE(AFFE=_F(GROUP_MA=('Group_Of_All_Volumes', ),
MODELISATION='3D',
PHENOMENE='MECANIQUE'),
MAILLAGE=MESH_T)
h = DEFI_CONSTANTE(VALE=10.0)
#comment: h_weld = DEFI_CONSTANTE(VALE=1000.0)
sigma = DEFI_CONSTANTE(VALE=5.67e-08)
epsilon = DEFI_CONSTANTE(VALE=0.2)
epsilon_weld = DEFI_CONSTANTE(VALE=0.65)
T_ambient = DEFI_CONSTANTE(VALE=Reference_Temp)
Lambda = DEFI_FONCTION(NOM_PARA='TEMP',
PROL_DROITE='CONSTANT',
PROL_GAUCHE='CONSTANT',
VALE=(0, 51.9, 100, 51.1, 200, 49, 300, 46.1, 400, 42.7, 500, 39.4, 600, 35.6, 700, 31.8, 800, 26, 1000, 27.2, 1500, 29.7))
rho_cp = DEFI_FONCTION(NOM_PARA='TEMP',
PROL_DROITE='CONSTANT',
PROL_GAUCHE='CONSTANT',
VALE=(0, 3532500.0, 75, 3805623.0, 175, 4049173.125, 225, 4142750.5, 275, 4329212.875, 325, 4452135.333333333, 375, 4635661.0, 475, 5099055.0, 575, 5739587.0, 675, 6456037.5, 725, 10905306.5, 775, 7219821.875, 1500, 2939210.526315789, 1540, 2934305.263157895, 1590, 6200407.77631579, 1840, 6135489.684210527, 1890, 2891384.2105263155, 2050, 2871763.1578947366, 5000, 2510000.0))
steel_source = DEFI_MATERIAU(THER_NL=_F(LAMBDA=Lambda,
RHO_CP=rho_cp))
steel = DEFI_MATERIAU(THER_NL=_F(LAMBDA=Lambda,
RHO_CP=rho_cp))
MATERIAL_T = AFFE_MATERIAU(AFFE=(_F(GROUP_MA='WELD_1_1',
MATER=steel_source),
_F(GROUP_MA='PARTS',
MATER=steel)),
MODELE=MODEL_T)
Convection = AFFE_CHAR_THER_F(ECHANGE=_F(COEF_H=h,
GROUP_MA=('ambient', ),
TEMP_EXT=T_ambient),
MODELE=MODEL_T)
Radiation = AFFE_CHAR_THER_F(MODELE=MODEL_T,
RAYONNEMENT=(_F(EPSILON=epsilon,
GROUP_MA=('ambient', ),
SIGMA=sigma,
TEMP_EXT=T_ambient),
_F(EPSILON=epsilon_weld,
GROUP_MA=('ambient_1_1', ),
SIGMA=sigma,
TEMP_EXT=T_ambient)))
Dummy_DEPL_T = CREA_CHAMP(AFFE=_F(NOM_CMP=('DX', ),
TOUT='OUI',
VALE=(0.0, )),
MODELE=DUMMY_T,
OPERATION='AFFE',
TYPE_CHAM='NOEU_DEPL_R')
I_1 = POST_ELEM(CHAM_GD=Dummy_DEPL_T,
INTEGRALE=_F(GROUP_MA=('WELD_1_1', ),
NOM_CHAM='DEPL',
NOM_CMP=('DX', ),
TYPE_MAILLE='3D'),
MODELE=DUMMY_T)
V_1 = EXTR_TABLE(NOM_PARA='VOL',
TABLE=I_1,
TYPE_RESU='REEL')
IMPR_TABLE(TABLE=I_1,
UNITE=11)
FIN()
applying radiation on other surfaces than ambient_1_1 has insignificant effect.