*****************************************************************
******STMicroelectronics MOSFET, IGBT and Bipolar Library *******
*****************************************************************
*								            				    *
* Models provided by STMicroelectronics are not guaranteed to   *
* fully represent all the specifications and operating	        *
* characteristics of the product behavior that they reproduce.  *
* The model describes the characteristics of a typical device.  *
* In all cases, the current product data sheet contains all     *
* information to be used like final design guidelines and the   *
* only actual performance specification.                        *
* Altough models can be a useful tool in evaluating device      *
* performance, they cannot model exact device performance under *
* all conditions.						                        *
* STMicroelectronics therefore does not assume any              *
* responsibility arising from their use.                        *
* STMicroelectronics reserves the right to change models        *
* without prior notice.                                         *
*                                                               *
* Note: The model doesn't take into account the drain, gate,    *
* source inductances.If these contributions have to be          *
* considered it is possible include the inductors externally.   *
* For this package the values can be estimated as follow        *
*                                                               *
* Ldrain= 1nH ,Lsource=2nH and Lgate=2.5nH                      *
*****************************************************************

.SUBCKT STB10LN80K5_V2 drain gate source 
*****************************************************************
E1	Tj	Val_T	VALUE={TEMP}
R1	Val_T	0	1E-03
*****************************************************************
Rtk	 Tj 0 1E010
Rtk1 Tj 0 1E010
*****************************************************************
VLd drain d1k 0
V_Read d1k d1 0
VLs source ss 0
VLg gate g2 0
Rg1 g2 g {Rg}
.PARAM  Rg=7
*****************************************************************
.PARAM AreaCap={0.45} Area={0.665} Gfs={0.45}
*****************************************************************
.PARAM  Vth0=5.81 KpSat0=25 KpLin0=25    
.PARAM  Rs=10E-02 Drs=-1.5 
.PARAM  Vthx=2.5E-03 KSat=-0.6 KLin=-0.5    
.PARAM  Lambda=0.001 Rdrain={165E-03/Area}  
.PARAM  A=1 B=1 Rx=4.49 Rpa=1E-06 Unt=-1.5
*****************************************************************
.FUNC Vth1(x) {Vth0-Vthx*(x-27)}
.FUNC kpsat(x) {KpSat0*((x+273)/300)**(KSat)}
.FUNC kplin(x) {KpLin0*((x+273)/300)**(KLin)}
*****************************************************************
V2xx  d1 22xxx 0
E2xxx 22xxx d VALUE={R2(I(V2xx),V(TJ))}
.FUNC R2(I1,T2) {I1*(Rdrain+Rpa*((I1**A))**Rx)/((B*((T2+273)/300)**(Unt))*Area)}
*****************************************************************
R_Grs ss s 1E03
V1xx 11xxx ss 0
E1xxx 11xxx s VALUE={R1(Limit(I(V1xx),-1MEG,1MEG),V(TJ))}
.FUNC R1(I1,T1) {-(I1)*((Rs/(Area*(((T1+273)/300)**(Drs)))))}
*****************************************************************
Gmos d s VALUE {0.9*Gfs*(IF(V(d,s)>0,(IF(V(g,s)<Vth1(V(TJ)),0,
+(IF((V(d,s)<(V(g,s)-Vth1(V(TJ)))*kpsat(V(TJ))/kplin(V(TJ))),(1+Lambda*V(d,s))*kplin(V(TJ))/2*V(d,s)*
+(2*(V(g,s)-Vth1(V(TJ)))-kplin(V(TJ))/kpsat(V(TJ))*V(d,s)),
+(1+Lambda*V(d,s))*kpsat(V(TJ))/2*(V(g,s)-Vth1(V(TJ)))**2)))),-(IF(V(g,s)<Vth1(V(TJ)),0,
+(IF((V(s,d)<(V(g,s)-Vth1(V(TJ)))*kpsat(V(TJ))/kplin(V(TJ))),(1+Lambda*V(s,d))*kplin(V(TJ))/2*V(s,d)*
+(2*(V(g,s)-Vth1(V(TJ)))-kplin(V(TJ))/kpsat(V(TJ))*V(s,d)),
+(1+Lambda*V(s,d))*kpsat(V(TJ))/2*(V(g,s)-Vth1(V(TJ)))**2))))))} 
*****************************************************************
CGS source g {1019E-12*AreaCap}
RCGS source g 1000E06 
*****************************************************************
EDeV DeV1 0 VALUE {V(d,g)}
C_DeV1 DeV1 DeV2 1E-12
R_DeV DeV2 DeV3 1E-06
V_Miller DeV3 0 0 
G_Miller d g VALUE ={AreaCap*1*V(alfa)*i(V_Miller)*1E12}
*****************************************************************
RCap Alfa 0 1E03
ECap Alfa 0 TABLE ={V(d,g)}
+(0.1,1103.79p) 
+(0.2,1095.78p) 
+(0.5,1073.28p) 
+(1,1035.22p) 
+(2,940.48p) 
+(3,753.65p) 
+(5,633.88p) 
+(7,551.22p) 
+(10,460.76p) 
+(15,251.13p) 
+(20,168.92p) 
+(25,50.94p) 
+(30,28.71p) 
+(40,11.47p) 
+(50,6.96p) 
+(100,1.49p) 
+(150,1.71p) 
+(200,2.62p) 
+(250,3.62p) 
+(300,4.37p) 
+(350,4.9p) 
+(400,5.19p) 
+(450,5.31p) 
+(500,5.64p) 
+(550,5.87p) 
+(600,6.25p) 
+(650,6.42p) 
+(700,6.54p) 
+(750,6.72p) 
+(800,6.89p) 
*****************************************************************
EDeVc DeV1c 0 VALUE {V(d,s)}
C_DeV1c DeV1c DeV2c 1E-12
R_DeVc DeV2c DeV3c 1E-06
V_Millerc DeV3c 0 0 
G_Coss d s VALUE ={1*AreaCap*V(Alfa2)*i(V_Millerc)*1E12}
*****************************************************************
RCap2 Alfa2 0 1E03
ECap2 Alfa2 0 TABLE ={V(d,s)}
+(0.1,8848.15p) 
+(0.2,8317.16p) 
+(0.5,7305.9p) 
+(1,6318.71p) 
+(2,5258.57p) 
+(3,4624p) 
+(5,3886.88p) 
+(7,3447.75p) 
+(10,3017.2p) 
+(15,2571.97p) 
+(20,2269.62p) 
+(25,2007.62p) 
+(30,1807.78p) 
+(40,1481p) 
+(50,1080.41p) 
+(100,60.44p) 
+(150,53.15p) 
+(200,44.54p) 
+(250,40.31p) 
+(300,37.42p) 
+(350,35.78p) 
+(400,34.99p) 
+(450,34.48p) 
+(500,33.76p) 
+(550,33.2p) 
+(600,32.48p) 
+(650,32.05p) 
+(700,31.7p) 
+(750,31.3p) 
+(800,30.9p) 
*****************************************************************
V_Sense2  sx s  0
*****************************************************************
.PARAM RAV=0.155 BVDSS=1
G_BVdss d1bVdss1 ss VALUE={I_BVdss(V(d1bVdss1,ss),V(Tj))}
R_GBdss d1bVdss1 0 1E12
.FUNC I_BVdss(z,k1) {(exp(min(-175+z/(bvd(k1)),7))-0E-12)}
.FUNC bvd(k) {5.07*BVDSS+0.005*k}
R_BVdss d1 d1bVdss1 {RAV}
*****************************************************************
.PARAM ResDiodo={0.003/AreaCap}
V_Diodo d1zd d1z 0
G_Diode source d1zd VALUE={I_Diode(V(source,d1zd),V(Tj))}
R_X source d1zd 1E12
.FUNC I_Diode(z3,k3) {(exp(min(-15+z3/(did(k3)),7))-0E-12)}
.FUNC did(k4) {0.051-69E-06*k4}
R_G_R_didd d1 d1z {ResDiodo}
*****************************************************************
E_E001 ba 0 VALUE {-I(V_Diodo)}
R_R002 aa ba 5E03
C aa 0 17E-12
.PARAM Irrm=17E05
*****************************************************************
R_edep drain d_dedep 30
E_Eds d_dedep edep VALUE {-V(aa,0)*Irrm*AreaCap}
Edeva dev1a 0 value {v(edep,source)}
C_dev1a dev1a dev2a 1E-12
R_deva dev2a dev3a 1E-06
V_millera dev3a 0 0 
G_millera edep source  value ={v(alfaa)*i(V_millera)*1E12}
*****************************************************************
Rcapa alfaa 0 1E03
Ecapa alfaa 0 TABLE ={V(Tj)}
+(25,1p)
+(150,0.85p)  
*****************************************************************
.ENDS STB10LN80K5_V2