26 REAL(KIND=8),
PARAMETER :: real_eps = 2.2204460492503131e-16
34 IF( abs(
atmos%a(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"a["//trim(
str(i))//
"]["//trim(
str(j))//
"] = ",
atmos%a(i,j)
35 IF( abs(
atmos%c(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"c["//trim(
str(i))//
"]["//trim(
str(j))//
"] = ",
atmos%c(i,j)
37 IF( abs(
atmos%b(i,j,kk)) .GE. real_eps)
write(*,
"(A,ES12.5)") &
38 &
"b[" //trim(
str(i))//
"][" //trim(
str(j))//
"][" //trim(
str(kk))//
"] = ",
atmos%b(i,j,kk)
39 IF( abs(
atmos%g(i,j,kk)) .GE. real_eps)
write(*,
"(A,ES12.5)") &
40 &
"g[" //trim(
str(i))//
"][" //trim(
str(j))//
"][" //trim(
str(kk))//
"] = ",
atmos%g(i,j,kk)
44 IF( abs(
atmos%d(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"d[" //trim(
str(i))//
"][" //trim(
str(j))//
"] = ",
atmos%d(i,j)
45 IF( abs(
atmos%s(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"s[" //trim(
str(i))//
"][" //trim(
str(j))//
"] = ",
atmos%s(i,j)
50 IF( abs(
ocean%M(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"M[" //trim(
str(i))//
"][" //trim(
str(j))//
"] = ",
ocean%M(i,j)
51 IF( abs(
ocean%N(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"N[" //trim(
str(i))//
"][" //trim(
str(j))//
"] = ",
ocean%N(i,j)
53 IF( abs(
ocean%O(i,j,kk)) .GE. real_eps)
write(*,
"(A,ES12.5)") &
54 &
"O[" //trim(
str(i))//
"][" //trim(
str(j))//
"][" //trim(
str(kk))//
"] = ",
ocean%O(i,j,kk)
55 IF( abs(
ocean%C(i,j,kk)) .GE. real_eps)
write(*,
"(A,ES12.5)") &
56 &
"C[" //trim(
str(i))//
"][" //trim(
str(j))//
"][" //trim(
str(kk))//
"] = ",
ocean%C(i,j,kk)
60 IF( abs(
ocean%K(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"K[" //trim(
str(i))//
"][" //trim(
str(j))//
"] = ",
ocean%K(i,j)
61 IF( abs(
ocean%W(i,j)) .GE. real_eps)
write(*,
"(A,ES12.5)")
"W[" //trim(
str(i))//
"][" //trim(
str(j))//
"] = ",
ocean%W(i,j)
integer noc
Number of oceanic basis functions.
subroutine, public init_inprod
Initialisation of the inner product.
Inner products between the truncated set of basis functions for the ocean and atmosphere streamfuncti...
character(len=20) function, public str(k)
Convert an integer to string.
integer natm
Number of atmospheric basis functions.
type(atm_tensors), public atmos
Atmospheric tensors.
The model parameters module.
subroutine init_params
Parameters initialisation routine.
type(ocean_tensors), public ocean
Oceanic tensors.
program inprod_analytic_test
Small program to print the inner products.