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.
ldfeiv_substitute.h90 in branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/LDF – NEMO

source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv_substitute.h90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 6 years ago

Remove svn keywords

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.