source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90

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

Remove svn keywords

File size: 955 bytes
RevLine 
[3]1   !!----------------------------------------------------------------------
2   !!                    *** zdfddm_substitute.h90  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose :   substitute fsaht. the eddy diffusivity coeff.
5   !!      with a constant or 1D or 2D or 3D array, using CPP macro.
6   !!----------------------------------------------------------------------
7#if defined key_zdfddm
8!   'key_zdfddm' :                      avs: 3D array defined in zdfddm module
[4152]9#   define   fsavs(i,j,k)       avs(i,j,k)
[3]10#else
11!   Defautl option :                     avs = avt
[4152]12#   define   fsavs(i,j,k)       avt(i,j,k)
[3]13#endif
[2715]14   !!----------------------------------------------------------------------
15   !! NEMO/OPA 4.0 , NEMO Consortium (2011)
[9295]16   !! $Id$
[2715]17   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
18   !!----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.