doc/html/test__dec__tensor_8f90_source.html

 ! test_dec_tensor.f90
 !
 !> Small program to print the decomposed tensors.
 !
 !> @copyright
 !> 2017 Jonathan Demaeyer.
 !> See LICENSE.txt for license information.
 !
 !---------------------------------------------------------------------------!

 PROGRAM test_dec_tensor

   USE dec_tensor
   USE tl_ad_tensor, only:tltensor
   USE aotensor_def, only:init_aotensor,aotensor
   USE tensor, only: print_tensor

   IMPLICIT NONE

   ! Program

   CALL init_aotensor     ! Initialize the aotensor
   CALL init_dec_tensor    ! Compute the tensor

   print*, 'ao_tensor'
   CALL print_tensor(aotensor)

   print*, 'ss_tensor'
   CALL print_tensor(ss_tensor)

   print*, 'sf_tensor'
   CALL print_tensor(sf_tensor)

   print*, 'ff_tensor'
   CALL print_tensor(ff_tensor)

   print*, 'fs_tensor'
   CALL print_tensor(fs_tensor)

   print*, 'tltensor'
   CALL print_tensor(tltensor)

   print*, 'ss_tl_tensor'
   CALL print_tensor(ss_tl_tensor)

   print*, 'Hx'
   CALL print_tensor(hx)

   print*, 'Lxx'
   CALL print_tensor(lxx)

   print*, 'Lxy'
   CALL print_tensor(lxy)

   print*, 'Bxxx'
   CALL print_tensor(bxxx)

   print*, 'Bxxy'
   CALL print_tensor(bxxy)

   print*, 'Bxyy'
   CALL print_tensor(bxyy)

   print*, 'Hy'
   CALL print_tensor(hy)

   print*, 'Lyx'
   CALL print_tensor(lyx)

   print*, 'Lyy'
   CALL print_tensor(lyy)

   print*, 'Byxx'
   CALL print_tensor(byxx)

   print*, 'Byxy'
   CALL print_tensor(byxy)

   print*, 'Byyy'
   CALL print_tensor(byyy)

 END PROGRAM test_dec_tensor

dec_tensor::lxy
type(coolist), dimension(:), allocatable, public lxy
Tensor holding the linear part of the resolved tendencies involving the unresolved variables...
Definition: dec_tensor.f90:38

dec_tensor::bxxx
type(coolist), dimension(:), allocatable, public bxxx
Tensor holding the quadratic part of the resolved tendencies involving resolved variables.
Definition: dec_tensor.f90:39

dec_tensor
The resolved-unresolved components decomposition of the tensor.
Definition: dec_tensor.f90:16

dec_tensor::byyy
type(coolist), dimension(:), allocatable, public byyy
Tensor holding the quadratic part of the unresolved tendencies involving unresolved variables...
Definition: dec_tensor.f90:48

dec_tensor::fs_tensor
type(coolist), dimension(:), allocatable, public fs_tensor
Tensor holding the part of the unresolved tensor involving resolved variables.
Definition: dec_tensor.f90:34

aotensor_def
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
Definition: aotensor_def.f90:21

dec_tensor::lyy
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
Tensor utility module.
Definition: tensor.f90:18

dec_tensor::lxx
type(coolist), dimension(:), allocatable, public lxx
Tensor holding the linear part of the resolved tendencies involving the resolved variables.
Definition: dec_tensor.f90:37

dec_tensor::hy
type(coolist), dimension(:), allocatable, public hy
Tensor holding the constant part of the unresolved tendencies.
Definition: dec_tensor.f90:43

dec_tensor::ss_tl_tensor
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

dec_tensor::byxy
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

dec_tensor::ff_tensor
type(coolist), dimension(:), allocatable, public ff_tensor
Tensor holding the part of the unresolved tensor involving only unresolved variables.
Definition: dec_tensor.f90:31

dec_tensor::bxxy
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

dec_tensor::ss_tensor
type(coolist), dimension(:), allocatable, public ss_tensor
Tensor holding the part of the resolved tensor involving only resolved variables. ...
Definition: dec_tensor.f90:33

tl_ad_tensor::tltensor
type(coolist), dimension(:), allocatable, public tltensor
Tensor representation of the Tangent Linear tendencies.
Definition: tl_ad_tensor.f90:41

dec_tensor::hx
type(coolist), dimension(:), allocatable, public hx
Tensor holding the constant part of the resolved tendencies.
Definition: dec_tensor.f90:36

dec_tensor::bxyy
type(coolist), dimension(:), allocatable, public bxyy
Tensor holding the quadratic part of the resolved tendencies involving unresolved variables...
Definition: dec_tensor.f90:41

tl_ad_tensor
Tangent Linear (TL) and Adjoint (AD) model versions of MAOOAM. Tensors definition module...
Definition: tl_ad_tensor.f90:19

dec_tensor::sf_tensor
type(coolist), dimension(:), allocatable, public sf_tensor
Tensor holding the part of the resolved tensor involving unresolved variables.
Definition: dec_tensor.f90:32

dec_tensor::lyx
type(coolist), dimension(:), allocatable, public lyx
Tensor holding the linear part of the unresolved tendencies involving the resolved variables...
Definition: dec_tensor.f90:44

aotensor_def::aotensor
type(coolist), dimension(:), allocatable, public aotensor
 - Tensor representation of the tendencies.
Definition: aotensor_def.f90:45

dec_tensor::byxx
type(coolist), dimension(:), allocatable, public byxx
Tensor holding the quadratic part of the unresolved tendencies involving resolved variables...
Definition: dec_tensor.f90:46

dec_tensor::init_dec_tensor
subroutine, public init_dec_tensor
Subroutine that initialize and compute the decomposed tensors.
Definition: dec_tensor.f90:195

test_dec_tensor
program test_dec_tensor
Small program to print the decomposed tensors.
Definition: test_dec_tensor.f90:12

aotensor_def::init_aotensor
subroutine, public init_aotensor
Subroutine to initialise the aotensor tensor.
Definition: aotensor_def.f90:202

tensor::print_tensor
subroutine, public print_tensor(t)
Routine to print a rank 3 tensor coolist.
Definition: tensor.f90:622