Choral
Functions/Subroutines | Variables
tnnp_mod Module Reference

TNNP ionic model More...

Functions/Subroutines

subroutine, public tnnp_y0 (Y)
 
subroutine, public tnnp_ab_0 (a, b, I, Y, N, Na)
 
subroutine, public tnnp_ab_w (a, b, I, Y, N, Na)
 
subroutine, public tnnp_ilist (IList, Y)
 
subroutine tnnp_winf_tau (Winf, tau, Y)
 
subroutine tnnp_g (G, Y, I)
 

Variables

integer, parameter, public tnnp_ni = 15
 
integer, parameter jna = 1
 
integer, parameter jnaca = 2
 
integer, parameter jnak = 3
 
integer, parameter jbna = 4
 
integer, parameter jcal = 5
 
integer, parameter jpca = 6
 
integer, parameter jbca = 7
 
integer, parameter jto = 8
 
integer, parameter jks = 9
 
integer, parameter jkr = 10
 
integer, parameter jk1 = 11
 
integer, parameter jpk = 12
 
integer, parameter jup = 13
 
integer, parameter jrel = 14
 
integer, parameter jleak = 15
 
integer, parameter, public tnnp_ny = 17
 
integer, parameter, public tnnp_nw = 12
 
integer, parameter ym = 1
 
integer, parameter yh = 2
 
integer, parameter yj = 3
 
integer, parameter yd = 4
 
integer, parameter yf = 5
 
integer, parameter yfca = 6
 
integer, parameter yr = 7
 
integer, parameter ys = 8
 
integer, parameter yxs = 9
 
integer, parameter yxr1 = 10
 
integer, parameter yxr2 = 11
 
integer, parameter yg = 12
 
integer, parameter ynai = 13
 
integer, parameter ycai = 14
 
integer, parameter yki = 15
 
integer, parameter ycasr = 16
 
integer, parameter yv = TNNP_NY
 
real(rp), parameter f = 96485.3415_RP
 
real(rp), parameter rtsf = 26.713760659695648_RP
 
real(rp), parameter fsrt = 1._RP/(RTsF)
 
real(rp), parameter vrest = -86.424_RP
 
real(rp), parameter cm = 0.185_RP
 
real(rp), parameter vc = 0.016404_RP
 
real(rp), parameter vsr = 0.001094_RP
 
real(rp), parameter nao = 140.0_RP
 
real(rp), parameter cao = 2.0_RP
 
real(rp), parameter ko = 5.4_RP
 
real(rp), parameter gna = 14.838_RP
 
real(rp), parameter gk1 = 5.405_RP
 
real(rp), parameter gto = 0.294_RP
 
real(rp), parameter gkr = 0.096_RP
 
real(rp), parameter gks = 0.245_RP
 
real(rp), parameter pkna = 0.03_RP
 
real(rp), parameter gcal = 1.75e-4_RP
 
real(rp), parameter knaca = 1000._RP
 
real(rp), parameter gamma = 0.35_RP
 
real(rp), parameter kmca = 1.38_RP
 
real(rp), parameter kmnai = 87.5_RP
 
real(rp), parameter ksat = 0.1_RP
 
real(rp), parameter alpha = 2.5_RP
 
real(rp), parameter pnak = 1.362_RP
 
real(rp), parameter kmk = 1._RP
 
real(rp), parameter kmna = 40._RP
 
real(rp), parameter gpk = 0.0146_RP
 
real(rp), parameter gpca = 0.825_RP
 
real(rp), parameter kpca = 0.0005_RP
 
real(rp), parameter gbna = 2.9e-4_RP
 
real(rp), parameter gbca = 5.92e-4_RP
 
real(rp), parameter vmaxup = 4.25e-4_RP
 
real(rp), parameter kup = 2.5e-4_RP
 
real(rp), parameter arel = 0.016464_RP
 
real(rp), parameter brel = 0.25_RP
 
real(rp), parameter crel = 0.008232_RP
 
real(rp), parameter vleak = 8.e-5_RP
 
real(rp), parameter bufc = 0.15_RP
 
real(rp), parameter kbufc = 1.e-3_RP
 
real(rp), parameter bufsr = 10._RP
 
real(rp), parameter kbufsr = 0.3_RP
 

Detailed Description

TNNP ionic model

State variable \( Y = ^T[w,c,v]\in\R^N\), \( N = 17\)

Membrane ionic currents \( I = (I_1,\dots,I_{N_I})\), \(N_I=15\).

The TNNP model is available with the formulations (see ionicModel_mod detailed description):

Ref = CELLML (avril 2013) epicardial cell

All differences with CELLML are tagged with "cellML ="

Author
Charles Pierre, June 2013.

Function/Subroutine Documentation

◆ tnnp_ab_0()

subroutine, public tnnp_mod::tnnp_ab_0 ( real(rp), dimension(na), intent(out)  a,
real(rp), dimension(n), intent(out)  b,
real(rp), intent(in)  I,
real(rp), dimension(n), intent(in)  Y,
integer, intent(in)  N,
integer, intent(in)  Na 
)

Definition at line 188 of file tnnp_mod.f90.

Here is the call graph for this function:

◆ tnnp_ab_w()

subroutine, public tnnp_mod::tnnp_ab_w ( real(rp), dimension(na), intent(out)  a,
real(rp), dimension(n), intent(out)  b,
real(rp), intent(in)  I,
real(rp), dimension(n), intent(in)  Y,
integer, intent(in)  N,
integer, intent(in)  Na 
)

Definition at line 205 of file tnnp_mod.f90.

Here is the call graph for this function:

◆ tnnp_g()

subroutine tnnp_mod::tnnp_g ( real(rp), dimension(tnnp_nw+1:tnnp_ny), intent(out)  G,
real(rp), dimension(tnnp_ny), intent(in)  Y,
real(rp), intent(in)  I 
)
private

Definition at line 484 of file tnnp_mod.f90.

Here is the call graph for this function:

◆ tnnp_ilist()

subroutine, public tnnp_mod::tnnp_ilist ( real(rp), dimension(tnnp_ni), intent(out)  IList,
real(rp), dimension(tnnp_ny), intent(in)  Y 
)

Definition at line 228 of file tnnp_mod.f90.

Here is the call graph for this function:

◆ tnnp_winf_tau()

subroutine tnnp_mod::tnnp_winf_tau ( real(rp), dimension(tnnp_nw), intent(out)  Winf,
real(rp), dimension(tnnp_nw), intent(out)  tau,
real(rp), dimension(tnnp_ny), intent(in)  Y 
)
private

Definition at line 343 of file tnnp_mod.f90.

Here is the call graph for this function:

◆ tnnp_y0()

subroutine, public tnnp_mod::tnnp_y0 ( real(rp), dimension(tnnp_ny), intent(out)  Y)

Definition at line 159 of file tnnp_mod.f90.

Here is the call graph for this function:

Variable Documentation

◆ alpha

real(rp), parameter tnnp_mod::alpha = 2.5_RP
private

Definition at line 135 of file tnnp_mod.f90.

◆ arel

real(rp), parameter tnnp_mod::arel = 0.016464_RP
private

Definition at line 146 of file tnnp_mod.f90.

◆ brel

real(rp), parameter tnnp_mod::brel = 0.25_RP
private

Definition at line 147 of file tnnp_mod.f90.

◆ bufc

real(rp), parameter tnnp_mod::bufc = 0.15_RP
private

Definition at line 150 of file tnnp_mod.f90.

◆ bufsr

real(rp), parameter tnnp_mod::bufsr = 10._RP
private

Definition at line 152 of file tnnp_mod.f90.

◆ cao

real(rp), parameter tnnp_mod::cao = 2.0_RP
private

Definition at line 121 of file tnnp_mod.f90.

◆ cm

real(rp), parameter tnnp_mod::cm = 0.185_RP
private

Definition at line 109 of file tnnp_mod.f90.

◆ crel

real(rp), parameter tnnp_mod::crel = 0.008232_RP
private

Definition at line 148 of file tnnp_mod.f90.

◆ f

real(rp), parameter tnnp_mod::f = 96485.3415_RP
private

Definition at line 104 of file tnnp_mod.f90.

◆ fsrt

real(rp), parameter tnnp_mod::fsrt = 1._RP/(RTsF)
private

Definition at line 106 of file tnnp_mod.f90.

◆ gamma

real(rp), parameter tnnp_mod::gamma = 0.35_RP
private

Definition at line 131 of file tnnp_mod.f90.

◆ gbca

real(rp), parameter tnnp_mod::gbca = 5.92e-4_RP
private

Definition at line 143 of file tnnp_mod.f90.

◆ gbna

real(rp), parameter tnnp_mod::gbna = 2.9e-4_RP
private

Definition at line 142 of file tnnp_mod.f90.

◆ gcal

real(rp), parameter tnnp_mod::gcal = 1.75e-4_RP
private

Definition at line 129 of file tnnp_mod.f90.

◆ gk1

real(rp), parameter tnnp_mod::gk1 = 5.405_RP
private

Definition at line 124 of file tnnp_mod.f90.

◆ gkr

real(rp), parameter tnnp_mod::gkr = 0.096_RP
private

Definition at line 126 of file tnnp_mod.f90.

◆ gks

real(rp), parameter tnnp_mod::gks = 0.245_RP
private

Definition at line 127 of file tnnp_mod.f90.

◆ gna

real(rp), parameter tnnp_mod::gna = 14.838_RP
private

Definition at line 123 of file tnnp_mod.f90.

◆ gpca

real(rp), parameter tnnp_mod::gpca = 0.825_RP
private

Definition at line 140 of file tnnp_mod.f90.

◆ gpk

real(rp), parameter tnnp_mod::gpk = 0.0146_RP
private

Definition at line 139 of file tnnp_mod.f90.

◆ gto

real(rp), parameter tnnp_mod::gto = 0.294_RP
private

Definition at line 125 of file tnnp_mod.f90.

◆ jbca

integer, parameter tnnp_mod::jbca = 7
private

Definition at line 55 of file tnnp_mod.f90.

◆ jbna

integer, parameter tnnp_mod::jbna = 4
private

Definition at line 52 of file tnnp_mod.f90.

◆ jcal

integer, parameter tnnp_mod::jcal = 5
private

Definition at line 53 of file tnnp_mod.f90.

◆ jk1

integer, parameter tnnp_mod::jk1 = 11
private

Definition at line 59 of file tnnp_mod.f90.

◆ jkr

integer, parameter tnnp_mod::jkr = 10
private

Definition at line 58 of file tnnp_mod.f90.

◆ jks

integer, parameter tnnp_mod::jks = 9
private

Definition at line 57 of file tnnp_mod.f90.

◆ jleak

integer, parameter tnnp_mod::jleak = 15
private

Definition at line 63 of file tnnp_mod.f90.

◆ jna

integer, parameter tnnp_mod::jna = 1
private

Definition at line 49 of file tnnp_mod.f90.

◆ jnaca

integer, parameter tnnp_mod::jnaca = 2
private

Definition at line 50 of file tnnp_mod.f90.

◆ jnak

integer, parameter tnnp_mod::jnak = 3
private

Definition at line 51 of file tnnp_mod.f90.

◆ jpca

integer, parameter tnnp_mod::jpca = 6
private

Definition at line 54 of file tnnp_mod.f90.

◆ jpk

integer, parameter tnnp_mod::jpk = 12
private

Definition at line 60 of file tnnp_mod.f90.

◆ jrel

integer, parameter tnnp_mod::jrel = 14
private

Definition at line 62 of file tnnp_mod.f90.

◆ jto

integer, parameter tnnp_mod::jto = 8
private

Definition at line 56 of file tnnp_mod.f90.

◆ jup

integer, parameter tnnp_mod::jup = 13
private

Definition at line 61 of file tnnp_mod.f90.

◆ kbufc

real(rp), parameter tnnp_mod::kbufc = 1.e-3_RP
private

Definition at line 151 of file tnnp_mod.f90.

◆ kbufsr

real(rp), parameter tnnp_mod::kbufsr = 0.3_RP
private

Definition at line 153 of file tnnp_mod.f90.

◆ kmca

real(rp), parameter tnnp_mod::kmca = 1.38_RP
private

Definition at line 132 of file tnnp_mod.f90.

◆ kmk

real(rp), parameter tnnp_mod::kmk = 1._RP
private

Definition at line 137 of file tnnp_mod.f90.

◆ kmna

real(rp), parameter tnnp_mod::kmna = 40._RP
private

Definition at line 138 of file tnnp_mod.f90.

◆ kmnai

real(rp), parameter tnnp_mod::kmnai = 87.5_RP
private

Definition at line 133 of file tnnp_mod.f90.

◆ knaca

real(rp), parameter tnnp_mod::knaca = 1000._RP
private

Definition at line 130 of file tnnp_mod.f90.

◆ ko

real(rp), parameter tnnp_mod::ko = 5.4_RP
private

Definition at line 122 of file tnnp_mod.f90.

◆ kpca

real(rp), parameter tnnp_mod::kpca = 0.0005_RP
private

Definition at line 141 of file tnnp_mod.f90.

◆ ksat

real(rp), parameter tnnp_mod::ksat = 0.1_RP
private

Definition at line 134 of file tnnp_mod.f90.

◆ kup

real(rp), parameter tnnp_mod::kup = 2.5e-4_RP
private

Definition at line 145 of file tnnp_mod.f90.

◆ nao

real(rp), parameter tnnp_mod::nao = 140.0_RP
private

Definition at line 120 of file tnnp_mod.f90.

◆ pkna

real(rp), parameter tnnp_mod::pkna = 0.03_RP
private

Definition at line 128 of file tnnp_mod.f90.

◆ pnak

real(rp), parameter tnnp_mod::pnak = 1.362_RP
private

Definition at line 136 of file tnnp_mod.f90.

◆ rtsf

real(rp), parameter tnnp_mod::rtsf = 26.713760659695648_RP
private

Definition at line 105 of file tnnp_mod.f90.

◆ tnnp_ni

integer, parameter, public tnnp_mod::tnnp_ni = 15

Definition at line 48 of file tnnp_mod.f90.

◆ tnnp_nw

integer, parameter, public tnnp_mod::tnnp_nw = 12

Definition at line 74 of file tnnp_mod.f90.

◆ tnnp_ny

integer, parameter, public tnnp_mod::tnnp_ny = 17

Definition at line 73 of file tnnp_mod.f90.

◆ vc

real(rp), parameter tnnp_mod::vc = 0.016404_RP
private

Definition at line 114 of file tnnp_mod.f90.

◆ vleak

real(rp), parameter tnnp_mod::vleak = 8.e-5_RP
private

Definition at line 149 of file tnnp_mod.f90.

◆ vmaxup

real(rp), parameter tnnp_mod::vmaxup = 4.25e-4_RP
private

Definition at line 144 of file tnnp_mod.f90.

◆ vrest

real(rp), parameter tnnp_mod::vrest = -86.424_RP
private

Definition at line 108 of file tnnp_mod.f90.

◆ vsr

real(rp), parameter tnnp_mod::vsr = 0.001094_RP
private

Definition at line 115 of file tnnp_mod.f90.

◆ ycai

integer, parameter tnnp_mod::ycai = 14
private

Definition at line 89 of file tnnp_mod.f90.

◆ ycasr

integer, parameter tnnp_mod::ycasr = 16
private

Definition at line 91 of file tnnp_mod.f90.

◆ yd

integer, parameter tnnp_mod::yd = 4
private

Definition at line 79 of file tnnp_mod.f90.

◆ yf

integer, parameter tnnp_mod::yf = 5
private

Definition at line 80 of file tnnp_mod.f90.

◆ yfca

integer, parameter tnnp_mod::yfca = 6
private

Definition at line 81 of file tnnp_mod.f90.

◆ yg

integer, parameter tnnp_mod::yg = 12
private

Definition at line 87 of file tnnp_mod.f90.

◆ yh

integer, parameter tnnp_mod::yh = 2
private

Definition at line 77 of file tnnp_mod.f90.

◆ yj

integer, parameter tnnp_mod::yj = 3
private

Definition at line 78 of file tnnp_mod.f90.

◆ yki

integer, parameter tnnp_mod::yki = 15
private

Definition at line 90 of file tnnp_mod.f90.

◆ ym

integer, parameter tnnp_mod::ym = 1
private

Definition at line 76 of file tnnp_mod.f90.

◆ ynai

integer, parameter tnnp_mod::ynai = 13
private

Definition at line 88 of file tnnp_mod.f90.

◆ yr

integer, parameter tnnp_mod::yr = 7
private

Definition at line 82 of file tnnp_mod.f90.

◆ ys

integer, parameter tnnp_mod::ys = 8
private

Definition at line 83 of file tnnp_mod.f90.

◆ yv

integer, parameter tnnp_mod::yv = TNNP_NY
private

Definition at line 92 of file tnnp_mod.f90.

◆ yxr1

integer, parameter tnnp_mod::yxr1 = 10
private

Definition at line 85 of file tnnp_mod.f90.

◆ yxr2

integer, parameter tnnp_mod::yxr2 = 11
private

Definition at line 86 of file tnnp_mod.f90.

◆ yxs

integer, parameter tnnp_mod::yxs = 9
private

Definition at line 84 of file tnnp_mod.f90.