32 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
buf_y1 33 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
buf_ka 34 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE ::
buf_kb 45 IF (allocstat /= 0) stop
"*** Not enough memory ! ***" 64 SUBROUTINE ad_step(y,ystar,t,dt,res)
65 REAL(KIND=8),
DIMENSION(0:ndim),
INTENT(IN) :: y,ystar
66 REAL(KIND=8),
INTENT(INOUT) :: t
67 REAL(KIND=8),
INTENT(IN) :: dt
68 REAL(KIND=8),
DIMENSION(0:ndim),
INTENT(OUT) :: res
97 SUBROUTINE tl_step(y,ystar,t,dt,res)
98 REAL(KIND=8),
DIMENSION(0:ndim),
INTENT(IN) :: y,ystar
99 REAL(KIND=8),
INTENT(INOUT) :: t
100 REAL(KIND=8),
INTENT(IN) :: dt
101 REAL(KIND=8),
DIMENSION(0:ndim),
INTENT(OUT) :: res
integer ndim
Number of variables (dimension of the model)
Tangent Linear (TL) and Adjoint (AD) model versions of MAOOAM. Integrators module.
subroutine, public ad_step(y, ystar, t, dt, res)
Routine to perform an integration step (Heun algorithm) of the adjoint model. The incremented time is...
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
subroutine, public ad(t, ystar, deltay, buf)
Tendencies for the AD of MAOOAM in point ystar for perturbation deltay.
subroutine, public tl(t, ystar, deltay, buf)
Tendencies for the TL of MAOOAM in point ystar for perturbation deltay.
The model parameters module.
Tangent Linear (TL) and Adjoint (AD) model versions of MAOOAM. Tensors definition module...
real(kind=8), dimension(:), allocatable buf_y1
Buffer to hold the intermediate position (Heun algorithm) of the tangent linear model.
subroutine, public init_tl_ad_integrator
Routine to initialise the integration buffers.
type(coolist), dimension(:), allocatable, public aotensor
- Tensor representation of the tendencies.
real(kind=8), dimension(:), allocatable buf_ka
Buffer to hold tendencies in the RK4 scheme for the tangent linear model.
subroutine, public tl_step(y, ystar, t, dt, res)
Routine to perform an integration step (Heun algorithm) of the tangent linear model. The incremented time is returned.
real(kind=8), dimension(:), allocatable buf_kb
Buffer to hold tendencies in the RK4 scheme for the tangent linear model.