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.
ldfdyn_substitute.h90 in branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LDF – NEMO

source: branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90 @ 3837

Last change on this file since 3837 was 3211, checked in by spickles2, 13 years ago

Stephen Pickles, 11 Dec 2011

Commit to bring the rest of the DCSE NEMO development branch
in line with the latest development version. This includes
array index re-ordering of all OPA_SRC/.
  • Property svn:keywords set to Id
File size: 1.8 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                    ***  ldfdyn_substitute.h90  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose :   substitute fsahm., the lateral eddy viscosity 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   !!
13   !! fsahmt, fsahmf - used for laplaian operator only
14   !! fsahmu, fsahmv - used for bilaplacian operator only
15   !!
16#if defined key_dynldf_c3d
17!   ' key_dynldf_c3d' :                  3D coefficient
18#    define   fsahmt(i,j,k)    ahm1(i,j,k)
19#    define   fsahmf(i,j,k)    ahm2(i,j,k)
20#    define   fsahmu(i,j,k)    ahm3(i,j,k)
21#    define   fsahmv(i,j,k)    ahm4(i,j,k)
22#    include "ldfdyn_oce_ftrans.h90"
23#elif defined key_dynldf_c2d
24!   ' key_dynldf_c2d' :                 2D coefficient
25#  define   fsahmt(i,j,k)    ahm1(i,j)
26#  define   fsahmf(i,j,k)    ahm2(i,j)
27#  define   fsahmu(i,j,k)    ahm3(i,j)
28#  define   fsahmv(i,j,k)    ahm4(i,j)
29#elif defined key_dynldf_c1d
30!   'key_dynldf_c1d' :                  1D coefficient
31#  define   fsahmt(i,j,k)    ahm1(k)
32#  define   fsahmf(i,j,k)    ahm1(k)
33#  define   fsahmu(i,j,k)    ahm2(k)
34#  define   fsahmv(i,j,k)    ahm2(k)
35#else
36!   default option :               Constant coefficient
37#  define   fsahmt(i,j,k)   ahm0
38#  define   fsahmf(i,j,k)   ahm0
39#  define   fsahmu(i,j,k)   ahm0_blp
40#  define   fsahmv(i,j,k)   ahm0_blp
41#endif
Note: See TracBrowser for help on using the repository browser.