New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
ldftra_substitute.h90 in branches/NERC/dev_r5518_NOC_unchanged/NEMOGCM/NEMO/OPA_SRC/LDF – NEMO

source: branches/NERC/dev_r5518_NOC_unchanged/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_substitute.h90 @ 6240

Last change on this file since 6240 was 6240, checked in by jpalmier, 8 years ago

JPALM -- 13-01-2016 -- clean svn_key

File size: 1.8 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                    *** ldftra_substitute.h90  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose :   substitute fsaht. the eddy diffusivity coeff.
5   !!      with a constant or 1D or 2D or 3D array, using CPP macro.
6   !!----------------------------------------------------------------------
7   !!----------------------------------------------------------------------
8   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
9   !! $Id$
10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12#if defined key_traldf_c3d
13!   'key_traldf_c3d' :                 aht: 3D coefficient
14#       define   fsahtt(i,j,k)   rldf * ahtt(i,j,k)
15#       define   fsahtu(i,j,k)   rldf * ahtu(i,j,k)
16#       define   fsahtv(i,j,k)   rldf * ahtv(i,j,k)
17#       define   fsahtw(i,j,k)   rldf * ahtw(i,j,k)
18#elif defined key_traldf_c2d
19!   'key_traldf_c2d' :                 aht: 2D coefficient
20#       define   fsahtt(i,j,k)   rldf * ahtt(i,j)
21#       define   fsahtu(i,j,k)   rldf * ahtu(i,j)
22#       define   fsahtv(i,j,k)   rldf * ahtv(i,j)
23#       define   fsahtw(i,j,k)   rldf * ahtw(i,j)
24#elif defined key_traldf_c1d
25!   'key_traldf_c1d' :                aht: 1D coefficient
26#       define   fsahtt(i,j,k)   rldf * ahtt(k)
27#       define   fsahtu(i,j,k)   rldf * ahtu(k)
28#       define   fsahtv(i,j,k)   rldf * ahtv(k)
29#       define   fsahtw(i,j,k)   rldf * ahtw(k)
30#else
31!   Default option :             aht: Constant coefficient
32#      define   fsahtt(i,j,k)   rldf * aht0
33#      define   fsahtu(i,j,k)   rldf * aht0
34#      define   fsahtv(i,j,k)   rldf * aht0
35#      define   fsahtw(i,j,k)   rldf * aht0
36#endif
Note: See TracBrowser for help on using the repository browser.