#include "cppdefs.h" #ifdef PROPAGATOR !! !!git $Id$ !!svn $Id: propagator.F 1151 2023-02-09 03:08:53Z arango $ !!================================================= Hernan G. Arango === !! Copyright (c) 2002-2023 The ROMS/TOMS Group Andrew M. Moore ! !! Licensed under a MIT/X style license ! !! See License_ROMS.md ! !!====================================================================== !! ! !! These drivers are part of the Generalized Stability Theory (GST) ! !! package to study the dynamics, sensitivity, and stability of the ! !! ocean circulation to naturally ocurring perturbations, errors or ! !! uncetainties in the forecasting system, and adaptive sampling. ! !! ! !! Available Drivers: ! !! ! !! propagator_adte Adjoint Finite time Eigenmodes ! !! propagator_fte Finite Time Eigenmodes ! !! propagator_fsv Forcing singular vectors ! !! propagator_hfsv Hessian Forcing singular vectors ! !! propagator_hop Optimal Perturbations, Hessian singular ! !! vectors ! !! propagator_hso Hessian Stochastic optimals ! !! propagator_op Optimal Perturbations, singular vectors ! !! propagator_so Stochastic optimals ! !! propagator_so_semi Stochastic optimals, semi-norm estimation ! !! propagator_so_trace Stochastic optimals, randomized trace ! !! ! !! Reference: ! !! ! !! Moore, A.M. et al., 2004: A comprehensive ocean prediction and ! !! analysis system based on the tangent linear and adjoint of a ! !! regional ocean model, Ocean Modelling, 7, 227-258. ! !! ! !!====================================================================== !! # if defined AFT_EIGENMODES # include "propagator_afte.h" # elif defined FT_EIGENMODES # include "propagator_fte.h" # elif defined FORCING_SV # include "propagator_fsv.h" # elif defined HESSIAN_FSV !!# include "propagator_hfsv.h" # elif defined OPT_PERTURBATION # include "propagator_op.h" # elif defined HESSIAN_SV # include "propagator_hop.h" # elif defined STOCHASTIC_OPT # ifdef HESSIAN_SO # include "propagator_hso.h" # else # include "propagator_so.h" # endif # elif defined SO_SEMI # include "propagator_so_semi.h" # elif defined SO_TRACE !!# include "propagator_so_trace.h" # endif #else MODULE propagator_mod END MODULE propagator_mod #endif