*******************************************************************************
*******************************************************************************
* MSC050SDA120S_L1, 50A, 1200V SiC NextGen SBDiode, TO-268
*******************************************************************************
********************* A  K  ***************************************************
.subckt MSC050SDA120S_L1 10 20
*#ASSOC Category=Diode Symbol=diode_sic
* Misc. parameters and utility functions
.PARAM TNOMK = 298.15
* Bond wire parameters
.PARAM BW_RHO = 2.6548e-6
.PARAM BW_TC = 0.0038
.PARAM BW_TREF = 293.15 
.PARAM AA_ = 0.1774
.PARAM DS_ = 0.1947
.PARAM BW_DIA = 15
.PARAM BW_LEN = 0.375
.PARAM BW_QTY = 4
.PARAM BW_L = 0.1947n
.FUNC degk() { temp + 273.15 }
.FUNC fRbw() { fRbwTref()*(1 + BW_TC*(degk()-BW_TREF)) }
.FUNC fRbwTref() {(BW_RHO * BW_LEN * 2.54 / (pi * (BW_DIA * 2.54e-3 / 2)**2 )) / BW_QTY}
V10 10 11 0
L11 11 12 {BW_L}
R11 11 12 1
E12 12 13 value={I(V10)*fRbw()}
XD1 13 20 MSCSICJBS1200Vt PARAMS: AA={AA_} DS={DS_} TEMP={27} 
.ends MSC050SDA120S_L1  

*******************************************************************************
*******************************************************************************
.SUBCKT MSCSICJBS1200Vt 11 21 PARAMS: AA=1 DS=1 TEMP=27
.PARAM TNOMK = 298.15
.PARAM QCHRG = 1.60217662e-19
.PARAM SiC_EPS = 8.880750380451000e-13
.PARAM PA = 146;									
.PARAM phi_BN = 1.13;							
.PARAM V_bi = 2.886;							
.PARAM degk = {TEMP+273.15}
.PARAM VT = {degk*8.6173304e-05}
.PARAM LP = 0.0000638;
.PARAM LS = 0.000250;
.PARAM LD = 0.0000487;
.PARAM N_D_act = 9.55e15;

V10 11 12 0
E12 12 13 value = { I(V10)*Ron }
G13 13 21 value = { if((min(V(13,21),3))<=0, 0, 2*PA*AA*LD*degk**2 * exp(((min(V(13,21),3))-phi_BN)/(Vt))/(LP+LS)) }
G14 21 13 value = {v(101)}
V13 21 22 0
C14 22 13 1p
R14 21 13 1G

.PARAM Ron = {0.0963*(5.329E-7*TEMP*TEMP+6.9453E-5*TEMP+1.7314e-2)/AA}
ECj 100 0 value = {2.1e3*(((1+V(21,13)/1.6)**2)**-0.245)}
.PARAM Cj0 = {2.1e3}
EIcj 101 0 value = {I(V13)*0.1063*(if(V(21,13)<0, Cj0, max(V(100),104)))/AA}

.ENDS MSCSICJBS1200Vt

.end