subroutine tridi_mod::tridin | ( | integer | l, |
integer | n, | ||
integer | nt, | ||
real(kind=kind_phys), dimension(l,2:n) | cl, | ||
real(kind=kind_phys), dimension(l,n) | cm, | ||
real(kind=kind_phys), dimension(l,n-1) | cu, | ||
real(kind=kind_phys), dimension(l,n) | r1, | ||
real(kind=kind_phys), dimension(l,n*nt) | r2, | ||
real(kind=kind_phys), dimension(l,n-1) | au, | ||
real(kind=kind_phys), dimension(l,n) | a1, | ||
real(kind=kind_phys), dimension(l,n*nt) | a2 ) |
Definition at line 97 of file tridi.f.
Referenced by satmedmfvdifq::satmedmfvdifq_run().