832 lines
22 KiB
C
832 lines
22 KiB
C
/*
|
|
* This file is part of the OSDI component of NGSPICE.
|
|
* Copyright© 2022 SemiMod GmbH.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at https://mozilla.org/MPL/2.0/.
|
|
*
|
|
* Author: Pascal Kuthe <pascal.kuthe@semimod.de>
|
|
*
|
|
* This is an exemplary implementation of the OSDI interface for the Verilog-A
|
|
* model specified in diode.va. In the future, the OpenVAF compiler shall
|
|
* generate an comparable object file. Primary purpose of this is example to
|
|
* have a concrete example for the OSDI interface, OpenVAF will generate a more
|
|
* optimized implementation.
|
|
*
|
|
*/
|
|
|
|
#include "osdi.h"
|
|
#include "string.h"
|
|
#include <math.h>
|
|
#include <stdbool.h>
|
|
#include <stddef.h>
|
|
#include <stdint.h>
|
|
#include <stdio.h>
|
|
|
|
// public interface
|
|
extern uint32_t OSDI_VERSION_MAJOR;
|
|
extern uint32_t OSDI_VERSION_MINOR;
|
|
extern uint32_t OSDI_NUM_DESCRIPTORS;
|
|
extern OsdiDescriptor OSDI_DESCRIPTORS[1];
|
|
|
|
// number of nodes and definitions of node ids for nicer syntax in this file
|
|
// note: order should be same as "nodes" list defined later
|
|
#define NUM_NODES 4
|
|
#define A 0
|
|
#define C 1
|
|
#define TNODE 2
|
|
#define CI 3
|
|
|
|
#define NUM_COLLAPSIBLE 2
|
|
|
|
// number of matrix entries and definitions for Jacobian entries for nicer
|
|
// syntax in this file
|
|
#define NUM_MATRIX 14
|
|
#define CI_CI 0
|
|
#define CI_C 1
|
|
#define C_CI 2
|
|
#define C_C 3
|
|
#define A_A 4
|
|
#define A_CI 5
|
|
#define CI_A 6
|
|
#define A_TNODE 7
|
|
#define C_TNODE 8
|
|
#define CI_TNODE 9
|
|
#define TNODE_TNODE 10
|
|
#define TNODE_A 11
|
|
#define TNODE_C 12
|
|
#define TNODE_CI 13
|
|
|
|
// The model structure for the diode
|
|
typedef struct DiodeModel
|
|
{
|
|
double Rs;
|
|
bool Rs_given;
|
|
double Is;
|
|
bool Is_given;
|
|
double zetars;
|
|
bool zetars_given;
|
|
double N;
|
|
bool N_given;
|
|
double Cj0;
|
|
bool Cj0_given;
|
|
double Vj;
|
|
bool Vj_given;
|
|
double M;
|
|
bool M_given;
|
|
double Rth;
|
|
bool Rth_given;
|
|
double zetarth;
|
|
bool zetarth_given;
|
|
double zetais;
|
|
bool zetais_given;
|
|
double Tnom;
|
|
bool Tnom_given;
|
|
double mfactor; // multiplication factor for parallel devices
|
|
bool mfactor_given;
|
|
// InitError errors[MAX_ERROR_NUM],
|
|
} DiodeModel;
|
|
|
|
// The instace structure for the diode
|
|
typedef struct DiodeInstace
|
|
{
|
|
double mfactor; // multiplication factor for parallel devices
|
|
bool mfactor_given;
|
|
double temperature;
|
|
double rhs_resist[NUM_NODES];
|
|
double rhs_react[NUM_NODES];
|
|
double jacobian_resist[NUM_MATRIX];
|
|
double jacobian_react[NUM_MATRIX];
|
|
bool is_collapsible[NUM_COLLAPSIBLE];
|
|
double *jacobian_ptr_resist[NUM_MATRIX];
|
|
double *jacobian_ptr_react[NUM_MATRIX];
|
|
uint32_t node_off[NUM_NODES];
|
|
} DiodeInstace;
|
|
|
|
#define EXP_LIM 80.0
|
|
|
|
double limexp(double x)
|
|
{
|
|
if (x < EXP_LIM)
|
|
{
|
|
return exp(x);
|
|
}
|
|
else
|
|
{
|
|
return exp(EXP_LIM) * (x + 1 - EXP_LIM);
|
|
}
|
|
}
|
|
|
|
double dlimexp(double x)
|
|
{
|
|
if (x < EXP_LIM)
|
|
{
|
|
return exp(x);
|
|
}
|
|
else
|
|
{
|
|
return exp(EXP_LIM);
|
|
}
|
|
}
|
|
|
|
// implementation of the access function as defined by the OSDI spec
|
|
void *osdi_access(void *inst_, void *model_, uint32_t id, uint32_t flags)
|
|
{
|
|
DiodeModel *model = (DiodeModel *)model_;
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
|
|
bool *given;
|
|
void *value;
|
|
|
|
switch (id) // id of params defined in param_opvar array
|
|
{
|
|
case 0:
|
|
if (flags & ACCESS_FLAG_INSTANCE)
|
|
{
|
|
value = (void *)&inst->mfactor;
|
|
given = &inst->mfactor_given;
|
|
}
|
|
else
|
|
{
|
|
value = (void *)&model->mfactor;
|
|
given = &model->mfactor_given;
|
|
}
|
|
break;
|
|
case 1:
|
|
value = (void *)&model->Rs;
|
|
given = &model->Rs_given;
|
|
break;
|
|
case 2:
|
|
value = (void *)&model->Is;
|
|
given = &model->Is_given;
|
|
break;
|
|
case 3:
|
|
value = (void *)&model->zetars;
|
|
given = &model->zetars_given;
|
|
break;
|
|
case 4:
|
|
value = (void *)&model->N;
|
|
given = &model->N_given;
|
|
break;
|
|
case 5:
|
|
value = (void *)&model->Cj0;
|
|
given = &model->Cj0_given;
|
|
break;
|
|
case 6:
|
|
value = (void *)&model->Vj;
|
|
given = &model->Vj_given;
|
|
break;
|
|
case 7:
|
|
value = (void *)&model->M;
|
|
given = &model->M_given;
|
|
break;
|
|
case 8:
|
|
value = &model->Rth;
|
|
given = &model->Rth_given;
|
|
break;
|
|
case 9:
|
|
value = (void *)&model->zetarth;
|
|
given = &model->zetarth_given;
|
|
break;
|
|
case 10:
|
|
value = (void *)&model->zetais;
|
|
given = &model->zetais_given;
|
|
break;
|
|
case 11:
|
|
value = (void *)&model->Tnom;
|
|
given = &model->Tnom_given;
|
|
break;
|
|
default:
|
|
return NULL;
|
|
}
|
|
|
|
if (flags & ACCESS_FLAG_SET)
|
|
{
|
|
*given = true;
|
|
}
|
|
|
|
return value;
|
|
}
|
|
|
|
// implementation of the setup_model function as defined in the OSDI spec
|
|
OsdiInitInfo setup_model(void *_handle, void *model_)
|
|
{
|
|
DiodeModel *model = (DiodeModel *)model_;
|
|
|
|
// set parameters and check bounds
|
|
if (!model->mfactor_given)
|
|
{
|
|
model->mfactor = 1.0;
|
|
}
|
|
if (!model->Rs_given)
|
|
{
|
|
model->Rs = 1e-9;
|
|
}
|
|
if (!model->Is_given)
|
|
{
|
|
model->Is = 1e-14;
|
|
}
|
|
if (!model->zetars_given)
|
|
{
|
|
model->zetars = 0;
|
|
}
|
|
if (!model->N_given)
|
|
{
|
|
model->N = 1;
|
|
}
|
|
if (!model->Cj0_given)
|
|
{
|
|
model->Cj0 = 0;
|
|
}
|
|
if (!model->Vj_given)
|
|
{
|
|
model->Vj = 1.0;
|
|
}
|
|
if (!model->M_given)
|
|
{
|
|
model->M = 0.5;
|
|
}
|
|
if (!model->Rth_given)
|
|
{
|
|
model->Rth = 0;
|
|
}
|
|
if (!model->zetarth_given)
|
|
{
|
|
model->zetarth = 0;
|
|
}
|
|
if (!model->zetais_given)
|
|
{
|
|
model->zetais = 0;
|
|
}
|
|
if (!model->Tnom_given)
|
|
{
|
|
model->Tnom = 300;
|
|
}
|
|
|
|
return (OsdiInitInfo){.flags = 0, .num_errors = 0, .errors = NULL};
|
|
}
|
|
|
|
// implementation of the setup_instace function as defined in the OSDI spec
|
|
OsdiInitInfo setup_instance(void *_handle, void *inst_, void *model_,
|
|
double temperature, uint32_t _num_terminals)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
DiodeModel *model = (DiodeModel *)model_;
|
|
|
|
// Here the logic for node collapsing ist implemented. The indices in this list must adhere to the "collapsible" List of node pairs.
|
|
if (model->Rs<1e-9){ // Rs between Ci C
|
|
inst->is_collapsible[0] = true;
|
|
}
|
|
if (model->Rth<1e-9){ // Rs between Ci C
|
|
inst->is_collapsible[1] = true;
|
|
}
|
|
|
|
if (!inst->mfactor_given)
|
|
{
|
|
if (model->mfactor_given)
|
|
{
|
|
inst->mfactor = model->mfactor;
|
|
}
|
|
else
|
|
{
|
|
inst->mfactor = 1;
|
|
}
|
|
}
|
|
|
|
inst->temperature = temperature;
|
|
return (OsdiInitInfo){.flags = 0, .num_errors = 0, .errors = NULL};
|
|
}
|
|
|
|
// implementation of the eval function as defined in the OSDI spec
|
|
uint32_t eval(void *handle, void *inst_, void *model_, uint32_t flags,
|
|
double *prev_solve, OsdiSimParas *sim_params)
|
|
{
|
|
DiodeModel *model = (DiodeModel *)model_;
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
|
|
// get voltages
|
|
double va = prev_solve[inst->node_off[A]];
|
|
double vc = prev_solve[inst->node_off[C]];
|
|
double vci = prev_solve[inst->node_off[CI]];
|
|
double vdtj = prev_solve[inst->node_off[TNODE]];
|
|
|
|
double vcic = vci - vc;
|
|
double vaci = va - vci;
|
|
|
|
double gmin = 1e-12;
|
|
for (int i = 0; sim_params->names[i] != NULL; i++)
|
|
{
|
|
if (strcmp(sim_params->names[i], "gmin") == 0)
|
|
{
|
|
gmin = sim_params->vals[i];
|
|
}
|
|
}
|
|
|
|
////////////////////////////////
|
|
// evaluate model equations
|
|
////////////////////////////////
|
|
|
|
// temperature update
|
|
double pk = 1.3806503e-23;
|
|
double pq = 1.602176462e-19;
|
|
double t_dev = inst->temperature + vdtj;
|
|
double tdev_tnom = t_dev / model->Tnom;
|
|
double rs_t = model->Rs * powf(tdev_tnom, model->zetars);
|
|
double rth_t = model->Rth * powf(tdev_tnom, model->zetarth);
|
|
double is_t = model->Is * powf(tdev_tnom, model->zetais);
|
|
double vt = t_dev * pk / pq;
|
|
|
|
// derivatives w.r.t. temperature
|
|
double rs_dt = model->zetars * model->Rs *
|
|
powf(tdev_tnom, model->zetars - 1.0) / model->Tnom;
|
|
double rth_dt = model->zetarth * model->Rth *
|
|
powf(tdev_tnom, model->zetarth - 1.0) / model->Tnom;
|
|
double is_dt = model->zetais * model->Is *
|
|
powf(tdev_tnom, model->zetais - 1.0) / model->Tnom;
|
|
double vt_tj = pk / pq;
|
|
|
|
// evaluate model equations and calculate all derivatives
|
|
// diode current
|
|
double id = is_t * (limexp(vaci / (model->N * vt)) - 1.0);
|
|
double gd = is_t / vt * dlimexp(vaci / (model->N * vt));
|
|
double gdt = -is_t * dlimexp(vaci / (model->N * vt)) * vaci / model->N / vt /
|
|
vt * vt_tj +
|
|
1.0 * exp((vaci / (model->N * vt)) - 1.0) * is_dt;
|
|
|
|
// resistor
|
|
double irs = 0;
|
|
double g = 0;
|
|
double grt = 0;
|
|
if (!inst->is_collapsible[0]) {
|
|
irs = vcic / rs_t;
|
|
g = 1.0 / rs_t;
|
|
grt = -irs / rs_t * rs_dt;
|
|
}
|
|
|
|
|
|
// thermal resistance
|
|
double irth = 0;
|
|
double gt = 0;
|
|
if (!inst->is_collapsible[1]) {
|
|
irth = vdtj / rth_t;
|
|
gt = 1.0 / rth_t - irth / rth_t * rth_dt;
|
|
}
|
|
|
|
// charge
|
|
double vf = model->Vj * (1.0 - powf(3.04, -1.0 / model->M));
|
|
double x = (vf - vaci) / vt;
|
|
double x_vt = -x / vt;
|
|
double x_dtj = x_vt * vt_tj;
|
|
double x_vaci = -1.0 / vt;
|
|
double y = sqrt(x * x + 1.92);
|
|
double y_x = 0.5 / y * 2.0 * x;
|
|
double y_vaci = y_x * x_vaci;
|
|
double y_dtj = y_x * x_dtj;
|
|
double vd = vf - vt * (x + y) / (2.0);
|
|
double vd_x = -vt / 2.0;
|
|
double vd_y = -vt / 2.0;
|
|
double vd_vt = -(x + y) / (2.0);
|
|
double vd_dtj = vd_x * x_dtj + vd_y * y_dtj + vd_vt * vt_tj;
|
|
double vd_vaci = vd_x * x_vaci + vd_y * y_vaci;
|
|
double qd = model->Cj0 * vaci * model->Vj *
|
|
(1.0 - powf(1.0 - vd / model->Vj, 1.0 - model->M)) /
|
|
(1.0 - model->M);
|
|
double qd_vd = model->Cj0 * model->Vj / (1.0 - model->M) * (1.0 - model->M) *
|
|
powf(1.0 - vd / model->Vj, 1.0 - model->M - 1.0) / model->Vj;
|
|
double qd_dtj = qd_vd * vd_dtj;
|
|
double qd_vaci = qd_vd * vd_vaci;
|
|
|
|
// thermal power source = current source
|
|
double ith = id * vaci ;
|
|
double ith_vtj = gdt * vaci ;
|
|
double ith_vcic = 0;
|
|
double ith_vaci = gd * vaci + id;
|
|
if (!inst->is_collapsible[0]) {
|
|
ith_vcic = 2.0 * vcic / rs_t;
|
|
ith += powf(vcic, 2.0) / rs_t;
|
|
ith_vtj -= - powf(vcic, 2.0) / rs_t / rs_t * rs_dt;
|
|
}
|
|
|
|
id += gmin * vaci;
|
|
gd += gmin;
|
|
|
|
double mfactor = inst->mfactor;
|
|
|
|
////////////////
|
|
// write rhs
|
|
////////////////
|
|
|
|
if (flags & CALC_RESIST_RESIDUAL)
|
|
{
|
|
// write resist rhs
|
|
inst->rhs_resist[A] = id * mfactor;
|
|
inst->rhs_resist[CI] = -id * mfactor + irs * mfactor;
|
|
inst->rhs_resist[C] = -irs * mfactor;
|
|
inst->rhs_resist[TNODE] = -ith * mfactor + irth * mfactor;
|
|
}
|
|
|
|
if (flags & CALC_REACT_RESIDUAL)
|
|
{
|
|
// write react rhs
|
|
inst->rhs_react[A] = qd * mfactor;
|
|
inst->rhs_react[CI] = -qd * mfactor;
|
|
}
|
|
|
|
//////////////////
|
|
// write Jacobian
|
|
//////////////////
|
|
|
|
if (flags & CALC_RESIST_JACOBIAN)
|
|
{
|
|
// stamp diode (current flowing from Ci into A)
|
|
inst->jacobian_resist[A_A] = gd * mfactor;
|
|
inst->jacobian_resist[A_CI] = -gd * mfactor;
|
|
inst->jacobian_resist[CI_A] = -gd * mfactor;
|
|
inst->jacobian_resist[CI_CI] = gd * mfactor;
|
|
// diode thermal
|
|
inst->jacobian_resist[A_TNODE] = gdt * mfactor;
|
|
inst->jacobian_resist[CI_TNODE] = -gdt * mfactor;
|
|
|
|
// stamp resistor (current flowing from C into CI)
|
|
inst->jacobian_resist[CI_CI] += g * mfactor;
|
|
inst->jacobian_resist[CI_C] = -g * mfactor;
|
|
inst->jacobian_resist[C_CI] = -g * mfactor;
|
|
inst->jacobian_resist[C_C] = g * mfactor;
|
|
// resistor thermal
|
|
inst->jacobian_resist[CI_TNODE] = grt * mfactor;
|
|
inst->jacobian_resist[C_TNODE] = -grt * mfactor;
|
|
|
|
// stamp rth flowing into node dTj
|
|
inst->jacobian_resist[TNODE_TNODE] = gt * mfactor;
|
|
|
|
// stamp ith flowing out of T node
|
|
inst->jacobian_resist[TNODE_TNODE] -= ith_vtj * mfactor;
|
|
inst->jacobian_resist[TNODE_CI] = (ith_vcic - ith_vaci) * mfactor;
|
|
inst->jacobian_resist[TNODE_C] = -ith_vcic * mfactor;
|
|
inst->jacobian_resist[TNODE_A] = ith_vaci * mfactor;
|
|
}
|
|
|
|
if (flags & CALC_REACT_JACOBIAN)
|
|
{
|
|
// write react matrix
|
|
// stamp Qd between nodes A and Ci depending also on dT
|
|
inst->jacobian_react[A_A] = qd_vaci * mfactor;
|
|
inst->jacobian_react[A_CI] = -qd_vaci * mfactor;
|
|
inst->jacobian_react[CI_A] = -qd_vaci * mfactor;
|
|
inst->jacobian_react[CI_CI] = qd_vaci * mfactor;
|
|
|
|
inst->jacobian_react[A_TNODE] = qd_dtj * mfactor;
|
|
inst->jacobian_react[CI_TNODE] = -qd_dtj * mfactor;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// TODO implementation of the load_noise function as defined in the OSDI spec
|
|
void load_noise(void *inst, void *model, double freq, double *noise_dens,
|
|
double *ln_noise_dens)
|
|
{
|
|
// TODO add noise to example
|
|
}
|
|
|
|
#define LOAD_RHS_RESIST(name) \
|
|
dst[inst->node_off[name]] += inst->rhs_resist[name];
|
|
|
|
// implementation of the load_rhs_resist function as defined in the OSDI spec
|
|
void load_residual_resist(void *inst_, double *dst)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
|
|
LOAD_RHS_RESIST(A)
|
|
LOAD_RHS_RESIST(CI)
|
|
LOAD_RHS_RESIST(C)
|
|
LOAD_RHS_RESIST(TNODE)
|
|
}
|
|
|
|
#define LOAD_RHS_REACT(name) dst[inst->node_off[name]] += inst->rhs_react[name];
|
|
|
|
// implementation of the load_rhs_react function as defined in the OSDI spec
|
|
void load_residual_react(void *inst_, double *dst)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
|
|
LOAD_RHS_REACT(A)
|
|
LOAD_RHS_REACT(CI)
|
|
}
|
|
|
|
#define LOAD_MATRIX_RESIST(name) \
|
|
*inst->jacobian_ptr_resist[name] += inst->jacobian_resist[name];
|
|
|
|
// implementation of the load_matrix_resist function as defined in the OSDI spec
|
|
void load_jacobian_resist(void *inst_)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
LOAD_MATRIX_RESIST(A_A)
|
|
LOAD_MATRIX_RESIST(A_CI)
|
|
LOAD_MATRIX_RESIST(A_TNODE)
|
|
|
|
LOAD_MATRIX_RESIST(CI_A)
|
|
LOAD_MATRIX_RESIST(CI_CI)
|
|
LOAD_MATRIX_RESIST(CI_C)
|
|
LOAD_MATRIX_RESIST(CI_TNODE)
|
|
|
|
LOAD_MATRIX_RESIST(C_CI)
|
|
LOAD_MATRIX_RESIST(C_C)
|
|
LOAD_MATRIX_RESIST(C_TNODE)
|
|
|
|
LOAD_MATRIX_RESIST(TNODE_TNODE)
|
|
LOAD_MATRIX_RESIST(TNODE_A)
|
|
LOAD_MATRIX_RESIST(TNODE_C)
|
|
LOAD_MATRIX_RESIST(TNODE_CI)
|
|
}
|
|
|
|
#define LOAD_MATRIX_REACT(name) \
|
|
*inst->jacobian_ptr_react[name] += inst->jacobian_react[name] * alpha;
|
|
|
|
// implementation of the load_matrix_react function as defined in the OSDI spec
|
|
void load_jacobian_react(void *inst_, double alpha)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
LOAD_MATRIX_REACT(A_A)
|
|
LOAD_MATRIX_REACT(A_CI)
|
|
LOAD_MATRIX_REACT(CI_A)
|
|
LOAD_MATRIX_REACT(CI_CI)
|
|
|
|
LOAD_MATRIX_REACT(A_TNODE)
|
|
LOAD_MATRIX_REACT(CI_TNODE)
|
|
}
|
|
|
|
#define LOAD_MATRIX_TRAN(name) \
|
|
*inst->jacobian_ptr_resist[name] += inst->jacobian_react[name] * alpha;
|
|
|
|
// implementation of the load_matrix_tran function as defined in the OSDI spec
|
|
void load_jacobian_tran(void *inst_, double alpha)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
|
|
// set dc stamps
|
|
load_jacobian_resist(inst_);
|
|
|
|
// add reactive contributions
|
|
LOAD_MATRIX_TRAN(A_A)
|
|
LOAD_MATRIX_TRAN(A_CI)
|
|
LOAD_MATRIX_TRAN(CI_A)
|
|
LOAD_MATRIX_TRAN(CI_CI)
|
|
|
|
LOAD_MATRIX_TRAN(A_TNODE)
|
|
LOAD_MATRIX_TRAN(CI_TNODE)
|
|
}
|
|
|
|
// implementation of the load_spice_rhs_dc function as defined in the OSDI spec
|
|
void load_spice_rhs_dc(void *inst_, double *dst, double *prev_solve)
|
|
{
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
double va = prev_solve[inst->node_off[A]];
|
|
double vci = prev_solve[inst->node_off[CI]];
|
|
double vc = prev_solve[inst->node_off[C]];
|
|
double vdtj = prev_solve[inst->node_off[TNODE]];
|
|
|
|
dst[inst->node_off[A]] += inst->jacobian_resist[A_A] * va +
|
|
inst->jacobian_resist[A_TNODE] * vdtj +
|
|
inst->jacobian_resist[A_CI] * vci -
|
|
inst->rhs_resist[A];
|
|
|
|
dst[inst->node_off[CI]] += inst->jacobian_resist[CI_A] * va +
|
|
inst->jacobian_resist[CI_TNODE] * vdtj +
|
|
inst->jacobian_resist[CI_CI] * vci -
|
|
inst->rhs_resist[CI];
|
|
|
|
dst[inst->node_off[C]] += inst->jacobian_resist[C_C] * vc +
|
|
inst->jacobian_resist[C_CI] * vci +
|
|
inst->jacobian_resist[C_TNODE] * vdtj -
|
|
inst->rhs_resist[C];
|
|
|
|
dst[inst->node_off[TNODE]] += inst->jacobian_resist[TNODE_A] * va +
|
|
inst->jacobian_resist[TNODE_C] * vc +
|
|
inst->jacobian_resist[TNODE_CI] * vci +
|
|
inst->jacobian_resist[TNODE_TNODE] * vdtj -
|
|
inst->rhs_resist[TNODE];
|
|
}
|
|
|
|
// implementation of the load_spice_rhs_tran function as defined in the OSDI
|
|
// spec
|
|
void load_spice_rhs_tran(void *inst_, double *dst, double *prev_solve,
|
|
double alpha)
|
|
{
|
|
|
|
DiodeInstace *inst = (DiodeInstace *)inst_;
|
|
double va = prev_solve[inst->node_off[A]];
|
|
double vci = prev_solve[inst->node_off[CI]];
|
|
double vdtj = prev_solve[inst->node_off[TNODE]];
|
|
|
|
// set DC rhs
|
|
load_spice_rhs_dc(inst_, dst, prev_solve);
|
|
|
|
// add contributions due to reactive elements
|
|
dst[inst->node_off[A]] +=
|
|
alpha * (inst->jacobian_react[A_A] * va +
|
|
inst->jacobian_react[A_CI] * vci +
|
|
inst->jacobian_react[A_TNODE] * vdtj);
|
|
|
|
dst[inst->node_off[CI]] += alpha * (inst->jacobian_react[CI_CI] * vci +
|
|
inst->jacobian_react[CI_A] * va +
|
|
inst->jacobian_react[CI_TNODE] * vdtj);
|
|
}
|
|
|
|
// structure that provides information of all nodes of the model
|
|
OsdiNode nodes[NUM_NODES] = {
|
|
{.name = "A", .units = "V", .is_reactive = true},
|
|
{.name = "C", .units = "V"},
|
|
{.name = "dT", .units = "K"},
|
|
{.name = "CI", .units = "V", .is_reactive = true},
|
|
};
|
|
|
|
// boolean array that tells which Jacobian entries are constant. Nothing is
|
|
// constant with selfheating, though.
|
|
bool const_jacobian_entries[NUM_MATRIX] = {};
|
|
// these node pairs specify which entries in the Jacobian must be accounted for
|
|
OsdiNodePair jacobian_entries[NUM_MATRIX] = {
|
|
{CI, CI},
|
|
{CI, C},
|
|
{C, CI},
|
|
{C, C},
|
|
{A, A},
|
|
{A, CI},
|
|
{CI, A},
|
|
{A, TNODE},
|
|
{C, TNODE},
|
|
{CI, TNODE},
|
|
{TNODE, TNODE},
|
|
{TNODE, A},
|
|
{TNODE, C},
|
|
{TNODE, CI},
|
|
};
|
|
OsdiNodePair collapsible[NUM_COLLAPSIBLE] = {
|
|
{CI, C},
|
|
{TNODE, NUM_NODES},
|
|
};
|
|
|
|
#define NUM_PARAMS 12
|
|
// the model parameters as defined in Verilog-A, bounds and default values are
|
|
// stored elsewhere as they may depend on model parameters etc.
|
|
OsdiParamOpvar params[NUM_PARAMS] = {
|
|
{
|
|
.name = (char *[]){"$mfactor"},
|
|
.num_alias = 0,
|
|
.description = "Verilog-A multiplication factor for parallel devices",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_INST,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"Rs"},
|
|
.num_alias = 0,
|
|
.description = "Ohmic res",
|
|
.units = "Ohm",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"Is"},
|
|
.num_alias = 0,
|
|
.description = "Saturation current",
|
|
.units = "A",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"zetars"},
|
|
.num_alias = 0,
|
|
.description = "Temperature coefficient of ohmic res",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"N"},
|
|
.num_alias = 0,
|
|
.description = "Emission coefficient",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"Cj0"},
|
|
.num_alias = 0,
|
|
.description = "Junction capacitance",
|
|
.units = "F",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"Vj"},
|
|
.num_alias = 0,
|
|
.description = "Junction potential",
|
|
.units = "V",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"M"},
|
|
.num_alias = 0,
|
|
.description = "Grading coefficient",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"Rth"},
|
|
.num_alias = 0,
|
|
.description = "Thermal resistance",
|
|
.units = "K/W",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"zetarth"},
|
|
.num_alias = 0,
|
|
.description = "Temperature coefficient of thermal res",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"zetais"},
|
|
.num_alias = 0,
|
|
.description = "Temperature coefficient of Is",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
{
|
|
.name = (char *[]){"Tnom"},
|
|
.num_alias = 0,
|
|
.description = "Reference temperature",
|
|
.units = "",
|
|
.flags = PARA_TY_REAL | PARA_KIND_MODEL,
|
|
.len = 0,
|
|
},
|
|
};
|
|
|
|
// fill exported data
|
|
uint32_t OSDI_VERSION_MAJOR = OSDI_VERSION_MAJOR_CURR;
|
|
uint32_t OSDI_VERSION_MINOR = OSDI_VERSION_MINOR_CURR;
|
|
uint32_t OSDI_NUM_DESCRIPTORS = 1;
|
|
// this is the main structure used by simulators, it gives access to all
|
|
// information in a model
|
|
OsdiDescriptor OSDI_DESCRIPTORS[1] = {{
|
|
// metadata
|
|
.name = "diode_va",
|
|
|
|
// nodes
|
|
.num_nodes = NUM_NODES,
|
|
.num_terminals = 3,
|
|
.nodes = (OsdiNode *)&nodes,
|
|
|
|
// matrix entries
|
|
.num_jacobian_entries = NUM_MATRIX,
|
|
.jacobian_entries = (OsdiNodePair *)&jacobian_entries,
|
|
.const_jacobian_entries = (bool *)&const_jacobian_entries,
|
|
|
|
// memory
|
|
.instance_size = sizeof(DiodeInstace),
|
|
.model_size = sizeof(DiodeModel),
|
|
.residual_resist_offset = offsetof(DiodeInstace, rhs_resist),
|
|
.residual_react_offset = offsetof(DiodeInstace, rhs_react),
|
|
.node_mapping_offset = offsetof(DiodeInstace, node_off),
|
|
.jacobian_resist_offset = offsetof(DiodeInstace, jacobian_resist),
|
|
.jacobian_react_offset = offsetof(DiodeInstace, jacobian_react),
|
|
.jacobian_ptr_resist_offset = offsetof(DiodeInstace, jacobian_ptr_resist),
|
|
.jacobian_ptr_react_offset = offsetof(DiodeInstace, jacobian_ptr_react),
|
|
|
|
// node collapsing
|
|
.num_collapsible = NUM_COLLAPSIBLE,
|
|
.collapsible = collapsible,
|
|
.is_collapsible_offset = offsetof(DiodeInstace, is_collapsible),
|
|
|
|
// noise
|
|
.noise_sources = NULL,
|
|
.num_noise_src = 0,
|
|
|
|
// parameters and op vars
|
|
.num_params = NUM_PARAMS,
|
|
.num_instance_params = 1,
|
|
.num_opvars = 0,
|
|
.param_opvar = (OsdiParamOpvar *)¶ms,
|
|
|
|
// setup
|
|
.access = &osdi_access,
|
|
.setup_model = &setup_model,
|
|
.setup_instance = &setup_instance,
|
|
.eval = &eval,
|
|
.load_noise = &load_noise,
|
|
.load_residual_resist = &load_residual_resist,
|
|
.load_residual_react = &load_residual_react,
|
|
.load_spice_rhs_dc = &load_spice_rhs_dc,
|
|
.load_spice_rhs_tran = &load_spice_rhs_tran,
|
|
.load_jacobian_resist = &load_jacobian_resist,
|
|
.load_jacobian_react = &load_jacobian_react,
|
|
.load_jacobian_tran = &load_jacobian_tran,
|
|
}};
|