20 REAL(KIND=8),
DIMENSION(:),
ALLOCATABLE :: y,ynew,h
22 REAL(KIND=8) :: t=0.d0
29 print*,
'Computing 100 timunits of memory term...' The stochastic models parameters module.
integer ndim
Number of variables (dimension of the model)
real(kind=8) muti
Memory update time interval.
subroutine, public ss_step(y, ys, t, dt, dtn, res)
Routine to perform a stochastic integration step of the unresolved uncoupled dynamics (Heun algorithm...
The equation tensor for the coupled ocean-atmosphere model with temperature which allows for an exten...
real(kind=8) t_trans_stoch
Transient time period of the stochastic model evolution.
subroutine, public init_ss_integrator
Subroutine to initialize the uncoupled resolved rk2 integrator.
Module with the stochastic uncoupled resolved nonlinear and tangent linear rk2 dynamics integration r...
subroutine, public test_m3(y, dt, dtn, h_int)
Routine to test the #compute_M3 routine.
real(kind=8) dtn
Square root of the timestep.
The WL tensors used to integrate the model.
real(kind=8) dtsn
Square root of the intrisic resolved dynamics time step.
subroutine, public init_memory
Subroutine to initialise the memory.
The model parameters module.
subroutine, public compute_m3(y, dt, dtn, savey, save_ev, evolve, inter, h_int)
Compute the integrand of at each time in the past and integrate to get the memory term...
Module that compute the memory term of the WL parameterization.
real(kind=8) dt
Integration time step.
program test_memory
Small program to test the WL memory module.
subroutine, public init_wl_tensor
Subroutine to initialise the WL tensor.
subroutine, public init_aotensor
Subroutine to initialise the aotensor tensor.
real(kind=8) dts
Intrisic resolved dynamics time step.