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

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

Update NEMOGCM from branch nemo_v3_3_beta

  • Property svn:keywords set to Id
File size: 1.7 KB
Line 
1#if defined key_traldf_eiv   ||   defined key_esopa
2   !!----------------------------------------------------------------------
3   !!                   ***  ldfeiv_substitute.h90  ***
4   !!----------------------------------------------------------------------
5   !! ** purpose :   substitute fsaei. the eddy induced velocity coeff.
6   !!      with a constant or 1D or 2D or 3D array, using CPP macro.
7   !!----------------------------------------------------------------------
8   !!----------------------------------------------------------------------
9   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
10   !! $Id$
11   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
12   !!----------------------------------------------------------------------
13#  if defined key_traldf_c3d
14!   'traldf_c3d' :                           eiv: 3D coefficient
15#    define   fsaeiu(i,j,k)   aeiu(i,j,k)
16#    define   fsaeiv(i,j,k)   aeiv(i,j,k)
17#    define   fsaeiw(i,j,k)   aeiw(i,j,k)
18#  elif defined key_traldf_c2d
19!   'traldf_c2d' :                           eiv: 2D coefficient
20#    define   fsaeiu(i,j,k)   aeiu(i,j)
21#    define   fsaeiv(i,j,k)   aeiv(i,j)
22#    define   fsaeiw(i,j,k)   aeiw(i,j)
23#  elif defined key_traldf_c1d
24!   'traldf_c1d' :                           eiv: 1D coefficient
25#    define   fsaeiu(i,j,k)   aeiu(k)
26#    define   fsaeiv(i,j,k)   aeiv(k)
27#    define   fsaeiw(i,j,k)   aeiw(k)
28#  else
29!   Default option :                          eiv: Constant coefficient
30#    define   fsaeiu(i,j,k)   aeiv0
31#    define   fsaeiv(i,j,k)   aeiv0
32#    define   fsaeiw(i,j,k)   aeiv0
33#  endif
34#else
35!   Default option :                         eiv: dummy variables
36#    define   fsaeiu(i,j,k)   aeiv0
37#    define   fsaeiv(i,j,k)   aeiv0
38#    define   fsaeiw(i,j,k)   aeiv0
39#endif
Note: See TracBrowser for help on using the repository browser.