propagator.F

Go to the documentation of this file.

#include "cppdefs.h"
#ifdef PROPAGATOR
!!
!!git $Id$
!!================================================= Hernan G. Arango ===
!! Copyright (c) 2002-2025 The ROMS 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