!!---------------------------------------------------------------------- !! *** zdfddm_substitute.h90 *** !!---------------------------------------------------------------------- !! ** purpose : substitute fsaht. the eddy diffusivity coeff. !! with a constant or 1D or 2D or 3D array, using CPP macro. !!---------------------------------------------------------------------- !!---------------------------------------------------------------------- !! NEMO/OPA 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- #if defined key_zdfddm ! '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