| 123456789101112131415161718 |
- !!----------------------------------------------------------------------
- !! *** zdfddm_substitute.h90 ***
- !!----------------------------------------------------------------------
- !! ** purpose : substitute fsaht. the eddy diffusivity coeff.
- !! with a constant or 1D or 2D or 3D array, using CPP macro.
- !!----------------------------------------------------------------------
- #if defined key_zdfddm && ! defined key_offline
- ! 'key_zdfddm' : avs: 3D array defined in zdfddm module
- # define fsavs(i,j,k) avs(i,j,k)
- #else
- ! Defautl option : avs = avt
- # define fsavs(i,j,k) avt(i,j,k)
- #endif
- !!----------------------------------------------------------------------
- !! NEMO/OPA 4.0 , NEMO Consortium (2011)
- !! $Id: zdfddm_substitute.h90 4152 2013-11-05 11:59:53Z cetlod $
- !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
- !!----------------------------------------------------------------------
|
