21 REAL(KIND=8),
PARAMETER :: real_eps = 2.2204460492503131e-16
31 IF( abs(
aotensor(i)%elems(n)%v) .GE. real_eps)
THEN 32 write(*,
"(A,ES12.5)")
"aotensor["//trim(
str(i))//
"]["//trim(
str(j)) &
33 &//
"]["//trim(
str(k))//
"] = ",
aotensor(i)%elems(n)%v
integer ndim
Number of variables (dimension of the model)
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
character(len=20) function, public str(k)
Convert an integer to string.
program test_aotensor
Small program to print the inner products.
The model parameters module.
type(coolist), dimension(:), allocatable, public aotensor
- Tensor representation of the tendencies.
subroutine, public init_aotensor
Subroutine to initialise the aotensor tensor.