A Modular Arbitrary-Order Ocean-Atmosphere Model -- Stochastic implementation
test_dec_tensor.f90
Go to the documentation of this file.
1 
2 ! test_dec_tensor.f90
3 !
4 !> Small program to print the decomposed tensors.
5 !
6 !> @copyright
7 !> 2018 Jonathan Demaeyer.
8 !> See LICENSE.txt for license information.
9 !
10 !---------------------------------------------------------------------------!
11 
13 
14  USE params, only: ndim
15  USE dec_tensor
16  USE tl_ad_tensor, only:tltensor
18  USE tensor, only: print_tensor
19 
20  IMPLICIT NONE
21 
22  ! Program
23 
24  CALL init_aotensor ! Initialize the aotensor
25  CALL init_dec_tensor ! Compute the tensor
26 
27  print*, 'ao_tensor'
29 
30  print*, 'ss_tensor'
32 
33  print*, 'sf_tensor'
35 
36  print*, 'ff_tensor'
38 
39  print*, 'fs_tensor'
41 
42  print*, 'tltensor'
44 
45  print*, 'ss_tl_tensor'
47 
48  print*, 'Hx'
49  CALL print_tensor(hx)
50 
51  print*, 'Lxx'
52  CALL print_tensor(lxx)
53 
54  print*, 'Lxy'
55  CALL print_tensor(lxy)
56 
57  print*, 'Bxxx'
58  CALL print_tensor(bxxx)
59 
60  print*, 'Bxxy'
61  CALL print_tensor(bxxy)
62 
63  print*, 'Bxyy'
64  CALL print_tensor(bxyy)
65 
66  print*, 'Hy'
67  CALL print_tensor(hy)
68 
69  print*, 'Lyx'
70  CALL print_tensor(lyx)
71 
72  print*, 'Lyy'
73  CALL print_tensor(lyy)
74 
75  print*, 'Byxx'
76  CALL print_tensor(byxx)
77 
78  print*, 'Byxy'
79  CALL print_tensor(byxy)
80 
81  print*, 'Byyy'
82  CALL print_tensor(byyy)
83 
84 END PROGRAM test_dec_tensor
85 
type(coolist), dimension(:), allocatable, public lxy
Tensor holding the linear part of the resolved tendencies involving the unresolved variables...
Definition: dec_tensor.f90:38
integer ndim
Number of variables (dimension of the model)
Definition: params.f90:85
type(coolist), dimension(:), allocatable, public bxxx
Tensor holding the quadratic part of the resolved tendencies involving resolved variables.
Definition: dec_tensor.f90:39
The resolved-unresolved components decomposition of the tensor.
Definition: dec_tensor.f90:16
type(coolist), dimension(:), allocatable, public byyy
Tensor holding the quadratic part of the unresolved tendencies involving unresolved variables...
Definition: dec_tensor.f90:48
type(coolist), dimension(:), allocatable, public fs_tensor
Tensor holding the part of the unresolved tensor involving resolved variables.
Definition: dec_tensor.f90:34
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
type(coolist), dimension(:), allocatable, public lyy
Tensor holding the linear part of the unresolved tendencies involving the unresolved variables...
Definition: dec_tensor.f90:45
Tensor utility module.
Definition: tensor.f90:18
type(coolist), dimension(:), allocatable, public lxx
Tensor holding the linear part of the resolved tendencies involving the resolved variables.
Definition: dec_tensor.f90:37
type(coolist), dimension(:), allocatable, public hy
Tensor holding the constant part of the unresolved tendencies.
Definition: dec_tensor.f90:43
type(coolist), dimension(:), allocatable, public ss_tl_tensor
Tensor of the tangent linear model tendencies of the resolved component alone.
Definition: dec_tensor.f90:50
type(coolist), dimension(:), allocatable, public byxy
Tensor holding the quadratic part of the unresolved tendencies involving both resolved and unresolved...
Definition: dec_tensor.f90:47
type(coolist), dimension(:), allocatable, public ff_tensor
Tensor holding the part of the unresolved tensor involving only unresolved variables.
Definition: dec_tensor.f90:31
type(coolist), dimension(:), allocatable, public bxxy
Tensor holding the quadratic part of the resolved tendencies involving both resolved and unresolved v...
Definition: dec_tensor.f90:40
type(coolist), dimension(:), allocatable, public ss_tensor
Tensor holding the part of the resolved tensor involving only resolved variables. ...
Definition: dec_tensor.f90:33
type(coolist), dimension(:), allocatable, public tltensor
Tensor representation of the Tangent Linear tendencies.
type(coolist), dimension(:), allocatable, public hx
Tensor holding the constant part of the resolved tendencies.
Definition: dec_tensor.f90:36
The model parameters module.
Definition: params.f90:18
type(coolist), dimension(:), allocatable, public bxyy
Tensor holding the quadratic part of the resolved tendencies involving unresolved variables...
Definition: dec_tensor.f90:41
Tangent Linear (TL) and Adjoint (AD) model versions of MAOOAM. Tensors definition module...
type(coolist), dimension(:), allocatable, public sf_tensor
Tensor holding the part of the resolved tensor involving unresolved variables.
Definition: dec_tensor.f90:32
type(coolist), dimension(:), allocatable, public lyx
Tensor holding the linear part of the unresolved tendencies involving the resolved variables...
Definition: dec_tensor.f90:44
type(coolist), dimension(:), allocatable, public aotensor
- Tensor representation of the tendencies.
type(coolist), dimension(:), allocatable, public byxx
Tensor holding the quadratic part of the unresolved tendencies involving resolved variables...
Definition: dec_tensor.f90:46
subroutine, public init_dec_tensor
Subroutine that initialize and compute the decomposed tensors.
Definition: dec_tensor.f90:195
program test_dec_tensor
Small program to print the decomposed tensors.
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