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 trunk/NEMOGCM/NEMO/OPA_SRC/LDF – NEMO

source: trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90 @ 2528

Last change on this file since 2528 was 2528, checked in by rblod, 13 years ago

Update NEMOGCM from branch nemo_v3_3_beta

  • Property svn:keywords set to Id
File size: 1.7 KB
RevLine 
[3]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   !!----------------------------------------------------------------------
[247]7   !!----------------------------------------------------------------------
[2528]8   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
[1152]9   !! $Id$
[2528]10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
[247]11   !!----------------------------------------------------------------------
[2528]12   !!
13   !! fsahmt, fsahmf - used for laplaian operator only
14   !! fsahmu, fsahmv - used for bilaplacian operator only
15   !!
[3]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)
[175]20#    define   fsahmu(i,j,k)    ahm3(i,j,k)
21#    define   fsahmv(i,j,k)    ahm4(i,j,k)
[3]22#elif defined key_dynldf_c2d
23!   ' key_dynldf_c2d' :                 2D coefficient
24#  define   fsahmt(i,j,k)    ahm1(i,j)
25#  define   fsahmf(i,j,k)    ahm2(i,j)
26#  define   fsahmu(i,j,k)    ahm3(i,j)
27#  define   fsahmv(i,j,k)    ahm4(i,j)
28#elif defined key_dynldf_c1d
29!   'key_dynldf_c1d' :                  1D coefficient
30#  define   fsahmt(i,j,k)    ahm1(k)
31#  define   fsahmf(i,j,k)    ahm1(k)
[2528]32#  define   fsahmu(i,j,k)    ahm2(k)
33#  define   fsahmv(i,j,k)    ahm2(k)
[3]34#else
35!   default option :               Constant coefficient
36#  define   fsahmt(i,j,k)   ahm0
37#  define   fsahmf(i,j,k)   ahm0
[2528]38#  define   fsahmu(i,j,k)   ahm0_blp
39#  define   fsahmv(i,j,k)   ahm0_blp
[3]40#endif
Note: See TracBrowser for help on using the repository browser.