20 LOGICAL :: mult,Q1fill
61 print*,
'Q1fill',q1fill
The MTV tensors used to integrate the MTV model.
type(coolist), dimension(:), allocatable, public l2
Second linear tensor.
subroutine, public init_sigma(mult, Q1fill)
Subroutine to initialize the sigma matices.
subroutine, public printmat(A)
type(coolist4), dimension(:), allocatable, public mtot
Tensor for the cubic terms.
type(coolist), dimension(:), allocatable, public l1
First linear tensor.
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
The MTV noise sigma matrices used to integrate the MTV model.
type(coolist), dimension(:), allocatable, public btot
Total quadratic tensor.
type(coolist), dimension(:), allocatable, public b2
Second quadratic tensor.
real(kind=8), dimension(:), allocatable, public htot
Total constant vector.
real(kind=8), dimension(:), allocatable, public h1
First constant vector.
type(coolist), dimension(:), allocatable, public ltot
Total linear tensor.
type(coolist), dimension(:), allocatable, public l3
Third linear tensor.
real(kind=8), dimension(:,:), allocatable, public q2
Constant terms for the state-independent noise covariance matrix.
real(kind=8), dimension(:), allocatable, public h3
Third constant vector.
subroutine, public init_mtv_int_tensor
Subroutine to initialise the MTV tensor.
real(kind=8), dimension(:,:), allocatable, public q1
Constant terms for the state-dependent noise covariance matrix.
subroutine, public print_tensor4(t)
Routine to print a rank-4 tensor coolist.
type(coolist), dimension(:), allocatable, public utot
Linear terms for the state-dependent noise covariance matrix.
program test_mtv_int_tensor
Small program to print the MTV integrated tensors.
type(coolist4), dimension(:), allocatable, public vtot
Quadratic terms for the state-dependent noise covariance matrix.
real(kind=8), dimension(:), allocatable, public h2
Second constant vector.
subroutine, public init_aotensor
Subroutine to initialise the aotensor tensor.
subroutine, public print_tensor(t, s)
Routine to print a rank 3 tensor coolist.
type(coolist), dimension(:), allocatable, public b1
First quadratic tensor.