求助，激光热源加载，大神们看一看

123wangzx

程序写到这里，写不下去了，只加载了空气对流，不知道怎么加载激光热源，全部表面都加载激光，程序如下：
/filn,model

/prep7
/unit,SI

*SET,Tuniform,298
hf_cent=0.78E8
*SET,hc,10
*SET,Tamb,298


et,1,solid90
ET,2,SURF152
DOF,TEMP
KEYOPT,2,3,0
KEYOPT,2,4,1   
KEYOPT,2,5,0
KEYOPT,2,6,0
KEYOPT,2,7,0
KEYOPT,2,8,3      
KEYOPT,2,9,0

MPTEMP,1,273,573,873,1173,1473,1773
MPDATA,DENS,1,1,6260,6260,6260,6260,6260,6260
MPDATA,KXX,1,1,116.35,111.31,114.71,39.02,41.74,41.67
MPDATA,C,1,1,446,487,522,564,580,613
MPDATA,ENTH,1,1,0.38E9,0.88E9,0.98E9,1.05E9,1.07E9,1.12E9

SPH4, , ,0.0000175  

SMRT,6  
SMRT,6  
SMRT,5  
MSHAPE,1,3D
MSHKEY,0
VMESH,1

ALLSEL,ALL                        !划分基板网格
ASEL,all
TYPE,2
AMESH,ALL
ESEL,S,TYPE,,2
SF,ALL,CONV,hc,Tamb
/PSF,CONV,2  

SAVE

/SOLU
ANTYPE,4
TRNOPT,FULL
LUMPM,0
hf_cent*0.835955