21 REAL(KIND=8),
DIMENSION(:,:),
ALLOCATABLE :: x
24 INTEGER :: AllocStat,i,n
41 print*,
'Generating 100 steps of MAR evolution ...' 67 print*,
'Test finished' subroutine, public mar_step(x)
Routine to generate one step of the MAR.
integer ndim
Number of variables (dimension of the model)
real(kind=8), dimension(:,:), allocatable, public q
Square root of the noise covariance matrix.
real(kind=8), dimension(:,:,:), allocatable, public w
W_i matrix.
program test_mar
Small program to test the Multivariate AutoRegressive model.
real(kind=8) tw
Write all variables every tw time units.
The resolved-unresolved components decomposition of the tensor.
subroutine, public printmat(A)
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
real(kind=8), dimension(:,:,:), allocatable, public wred
Reduce W_i matrix.
integer, public n_unres
Number of unresolved variables.
real(kind=8), dimension(:,:), allocatable, public qred
Reduce version of Q.
The model parameters module.
Multidimensional Autoregressive module to generate the correlation for the WL parameterization.
real(kind=8) dt
Integration time step.
Module to select the resolved-unresolved components.
subroutine, public init_dec_tensor
Subroutine that initialize and compute the decomposed tensors.
subroutine, public init_aotensor
Subroutine to initialise the aotensor tensor.
integer, public ms
order of the MAR
subroutine, public init_mar
Subroutine to initialise the MAR.