A Modular Arbitrary-Order Ocean-Atmosphere Model -- Stochastic implementation
Modules | Functions/Subroutines | Variables
aotensor_def.f90 File Reference

Go to the source code of this file.

Modules

module  aotensor_def
 The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an extensible set of modes in the ocean and in the atmosphere.
 

Functions/Subroutines

integer function aotensor_def::psi (i)
 Translate the \(\psi_{a,i}\) coefficients into effective coordinates. More...
 
integer function aotensor_def::theta (i)
 Translate the \(\theta_{a,i}\) coefficients into effective coordinates. More...
 
integer function aotensor_def::a (i)
 Translate the \(\psi_{o,i}\) coefficients into effective coordinates. More...
 
integer function aotensor_def::t (i)
 Translate the \(\delta T_{o,i}\) coefficients into effective coordinates. More...
 
integer function aotensor_def::kdelta (i, j)
 Kronecker delta function. More...
 
subroutine aotensor_def::coeff (i, j, k, v)
 Subroutine to add element in the aotensor \(\mathcal{T}_{i,j,k}\) structure. More...
 
subroutine aotensor_def::add_count (i, j, k, v)
 Subroutine to count the elements of the aotensor \(\mathcal{T}_{i,j,k}\). Add +1 to count_elems(i) for each value that is added to the tensor i-th component. More...
 
subroutine aotensor_def::compute_aotensor (func)
 Subroutine to compute the tensor aotensor. More...
 
subroutine, public aotensor_def::init_aotensor
 Subroutine to initialise the aotensor tensor. More...
 

Variables

integer, dimension(:), allocatable aotensor_def::count_elems
 Vector used to count the tensor elements. More...
 
real(kind=8), parameter aotensor_def::real_eps = 2.2204460492503131e-16
 Epsilon to test equality with 0. More...
 
type(coolist), dimension(:), allocatable, public aotensor_def::aotensor
 \(\mathcal{T}_{i,j,k}\) - Tensor representation of the tendencies. More...