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 tags/nemo_dev_x6/NEMO/OPA_SRC/LDF – NEMO

source: tags/nemo_dev_x6/NEMO/OPA_SRC/LDF/ldftra_substitute.h90 @ 158

Last change on this file since 158 was 158, checked in by cvs2svn, 20 years ago

This commit was manufactured by cvs2svn to create tag 'nemo_dev_x6'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 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#if defined key_traldf_c3d
8!   'key_traldf_c3d' :                 aht: 3D coefficient
9#       define   fsahtt(i,j,k)   ahtt(i,j,k)
10#       define   fsahtu(i,j,k)   ahtu(i,j,k)
11#       define   fsahtv(i,j,k)   ahtv(i,j,k)
12#       define   fsahtw(i,j,k)   ahtw(i,j,k)
13#elif defined key_traldf_c2d
14!   'key_traldf_c2d' :                 aht: 2D coefficient
15#       define   fsahtt(i,j,k)   ahtt(i,j)
16#       define   fsahtu(i,j,k)   ahtu(i,j)
17#       define   fsahtv(i,j,k)   ahtv(i,j)
18#       define   fsahtw(i,j,k)   ahtw(i,j)
19#elif defined key_traldf_c1d
20!   'key_traldf_c1d' :                aht: 1D coefficient
21#       define   fsahtt(i,j,k)   ahtt(k)
22#       define   fsahtu(i,j,k)   ahtu(k)
23#       define   fsahtv(i,j,k)   ahtv(k)
24#       define   fsahtw(i,j,k)   ahtw(k)
25#else
26!   Default option :             aht: Constant coefficient
27#      define   fsahtt(i,j,k)   aht0
28#      define   fsahtu(i,j,k)   aht0
29#      define   fsahtv(i,j,k)   aht0
30#      define   fsahtw(i,j,k)   aht0
31#endif
Note: See TracBrowser for help on using the repository browser.