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

source: trunk/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90 @ 1152

Last change on this file since 1152 was 1152, checked in by rblod, 16 years ago

Convert cvs header to svn Id, step II

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.6 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   !!  OPA 9.0 , LOCEAN-IPSL (2005)
9   !! $Id$
10   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
11   !!----------------------------------------------------------------------
12#if defined key_dynldf_c3d
13!   ' key_dynldf_c3d' :                  3D coefficient
14#    define   fsahmt(i,j,k)    ahm1(i,j,k)
15#    define   fsahmf(i,j,k)    ahm2(i,j,k)
16#    define   fsahmu(i,j,k)    ahm3(i,j,k)
17#    define   fsahmv(i,j,k)    ahm4(i,j,k)
18#elif defined key_dynldf_c2d
19!   ' key_dynldf_c2d' :                 2D coefficient
20#  define   fsahmt(i,j,k)    ahm1(i,j)
21#  define   fsahmf(i,j,k)    ahm2(i,j)
22#  define   fsahmu(i,j,k)    ahm3(i,j)
23#  define   fsahmv(i,j,k)    ahm4(i,j)
24#elif defined key_dynldf_c1d
25!   'key_dynldf_c1d' :                  1D coefficient
26#  define   fsahmt(i,j,k)    ahm1(k)
27#  define   fsahmf(i,j,k)    ahm1(k)
28#  define   fsahmu(i,j,k)    ahm1(k)
29#  define   fsahmv(i,j,k)    ahm1(k)
30#else
31!   default option :               Constant coefficient
32#  define   fsahmt(i,j,k)   ahm0
33#  define   fsahmf(i,j,k)   ahm0
34#  define   fsahmu(i,j,k)   ahm0
35#  define   fsahmv(i,j,k)   ahm0
36#endif
Note: See TracBrowser for help on using the repository browser.