A Modular Arbitrary-Order Ocean-Atmosphere Model -- Stochastic implementation
test_MTV_int_tensor.f90
Go to the documentation of this file.
1 
2 ! test_MTV_int_tensor.f90
3 !
4 !> Small program to print the MTV integrated tensors
5 !
6 !> @copyright
7 !> 2018 Jonathan Demaeyer.
8 !> See LICENSE.txt for license information.
9 !
10 !---------------------------------------------------------------------------!
11 
13 
14  USE aotensor_def, only: init_aotensor
15  USE mtv_int_tensor
17  USE sigma, only: init_sigma
18  USE util, only: printmat
19 
20  LOGICAL :: mult,Q1fill
21 
22  CALL init_aotensor ! Initialize the aotensor
24  print*, 'H1'
25  print*, h1
26  print*, 'H2'
27  print*, h2
28  print*, 'H3'
29  print*, h3
30  print*, 'Htot'
31  print*, htot
32  print*, 'L1'
33  CALL print_tensor(l1)
34  print*, 'L2'
35  CALL print_tensor(l2)
36  print*, 'L3'
37  CALL print_tensor(l3)
38  print*, 'Ltot'
39  CALL print_tensor(ltot)
40  print*, 'B1'
41  CALL print_tensor(b1)
42  print*, 'B2'
43  CALL print_tensor(b2)
44  print*, 'Btot'
45  CALL print_tensor(btot)
46  print*, 'Mtot'
47  CALL print_tensor4(mtot)
48  print*, 'Q1'
49  CALL printmat(q1)
50  print*, 'Q2'
51  CALL printmat(q2)
52  print*, 'Utot'
53  CALL print_tensor(utot)
54  print*, 'Vtot'
55  CALL print_tensor4(vtot)
56 
57  CALL init_sigma(mult,q1fill)
58 
59 
60  print*, 'mult',mult
61  print*, 'Q1fill',q1fill
62 
63 END PROGRAM test_mtv_int_tensor
Utility module.
Definition: util.f90:12
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)
Definition: util.f90:200
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...
Tensor utility module.
Definition: tensor.f90:18
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.
Definition: tensor.f90:922
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.
Definition: tensor.f90:399
type(coolist), dimension(:), allocatable, public b1
First quadratic tensor.