#include "cppdefs.h" #ifdef TL_IOMS ! !git $Id$ !svn $Id: rp_step2d.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 ! !======================================================================= ! ! ! This subroutine performs a fast (predictor or corrector) time-step ! ! for the free-surface and 2D momentum representers tangent linear ! ! equations. ! # ifdef SOLVE3D ! It also calculates the time filtering variables over all fast-time ! ! steps to damp high frequency signals in 3D applications. ! # endif ! ! !======================================================================= ! # include "rp_step2d_LF_AM3.h" #else MODULE rp_step2d_mod END MODULE rp_step2d_mod #endif