A Modular Arbitrary-Order Ocean-Atmosphere Model -- Stochastic implementation
test_corr_tensor.f90
Go to the documentation of this file.
1 
2 ! test_MTV_int_tensor.f90
3 !
4 !> Small program to print the time correlations tensors.
5 !
6 !> @copyright
7 !> 2018 Jonathan Demaeyer.
8 !> See LICENSE.txt for license information.
9 !
10 !---------------------------------------------------------------------------!
11 
13 
15  USE aotensor_def, only: init_aotensor
16  USE dec_tensor, only: init_dec_tensor
17  USE corr_tensor
18  USE stoch_params, only: mems
19 
20  INTEGER :: m
21 
22  CALL init_aotensor ! Initialize the aotensor
23  CALL init_dec_tensor
24 
25  CALL init_corr_tensor
26 
27  print*, 'YY'
28  DO m=1,mems
29  print*, m
30  CALL print_tensor(yy(:,m))
31  ENDDO
32  print*, 'dY'
33  DO m=1,mems
34  print*, m
35  CALL print_tensor(dy(:,m))
36  ENDDO
37  print*, 'YdY'
38  DO m=1,mems
39  print*, m
40  CALL print_tensor(ydy(:,m))
41  ENDDO
42  print*, 'dYY'
43  DO m=1,mems
44  print*, m
45  CALL print_tensor(dyy(:,m))
46  ENDDO
47  print*, 'YdYY'
48  DO m=1,mems
49  print*, m
50  CALL print_tensor4(ydyy(:,m))
51  ENDDO
52 
53 
54 END PROGRAM test_corr_tensor
55 
The stochastic models parameters module.
type(coolist), dimension(:,:), allocatable, public yy
Coolist holding the terms.
Definition: corr_tensor.f90:30
type(coolist), dimension(:,:), allocatable, public dyy
Coolist holding the terms.
Definition: corr_tensor.f90:33
The resolved-unresolved components decomposition of the tensor.
Definition: dec_tensor.f90:16
type(coolist4), dimension(:,:), allocatable, public ydyy
Coolist holding the terms.
Definition: corr_tensor.f90:34
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
program test_corr_tensor
Small program to print the time correlations tensors.
Tensor utility module.
Definition: tensor.f90:18
type(coolist), dimension(:,:), allocatable, public dy
Coolist holding the terms.
Definition: corr_tensor.f90:31
type(coolist), dimension(:,:), allocatable, public ydy
Coolist holding the terms.
Definition: corr_tensor.f90:32
subroutine, public init_corr_tensor
Subroutine to initialise the correlations tensors.
Definition: corr_tensor.f90:45
subroutine, public print_tensor4(t)
Routine to print a rank-4 tensor coolist.
Definition: tensor.f90:922
Module to compute the correlations and derivatives used to compute the memory term of the WL paramete...
Definition: corr_tensor.f90:17
subroutine, public init_dec_tensor
Subroutine that initialize and compute the decomposed tensors.
Definition: dec_tensor.f90:195
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
integer mems
Number of steps in the memory kernel integral.