ROMS
Loading...
Searching...
No Matches
rp_t3dmix.F
Go to the documentation of this file.
1#include "cppdefs.h"
2
3#ifdef TL_IOMS
4# if !defined TS_FIXED && defined SOLVE3D && \
5 (defined ts_dif2 || defined ts_dif4)
6!!
7!!git $Id$
8!!================================================= Hernan G. Arango ===
9!! Copyright (c) 2002-2025 The ROMS Group !
10!! Licensed under a MIT/X style license !
11!! See License_ROMS.md !
12!!======================================================================
13!! !
14!! This routine computes representers tangent linear horizontal mixing !
15!! of tracers. !
16!! !
17!!======================================================================
18!!
19# ifdef TS_DIF2
20# if defined MIX_S_TS
21# include "rp_t3dmix2_s.h"
22# elif defined MIX_GEO_TS
23# include "rp_t3dmix2_geo.h"
24# elif defined MIX_ISO_TS
25# include "rp_t3dmix2_iso.h"
26# endif
27# endif
28
29# ifdef TS_DIF4
30# if defined MIX_S_TS
31# include "rp_t3dmix4_s.h"
32# elif defined MIX_GEO_TS
33# include "rp_t3dmix4_geo.h"
34# elif defined MIX_ISO_TS
35# include "rp_t3dmix4_iso.h"
36# endif
37# endif
38# endif
39#else
40 MODULE rp_t3dmix2_mod
41 END MODULE rp_t3dmix2_mod
42
43 MODULE rp_t3dmix4_mod
44 END MODULE rp_t3dmix4_mod
45#endif