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.
zdfddm_substitute.h90 in tags/nemo_v3_2/nemo_v3_2/NEMO/OPA_SRC/ZDF – NEMO

source: tags/nemo_v3_2/nemo_v3_2/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90 @ 1878

Last change on this file since 1878 was 1878, checked in by flavoni, 14 years ago

initial test for nemogcm

File size: 1008 bytes
Line 
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   !!----------------------------------------------------------------------
8   !!  OPA 9.0 , LOCEAN-IPSL (2005)
9   !! $Id: zdfddm_substitute.h90 1152 2008-06-26 14:11:13Z rblod $
10   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
11   !!----------------------------------------------------------------------
12#if defined key_zdfddm
13!   'key_zdfddm' :                      avs: 3D array defined in zdfddm module
14#   define   fsavs(i,j,k)   avs(i,j,k)
15#else
16!   Defautl option :                     avs = avt
17#   define   fsavs(i,j,k)   avt(i,j,k)
18#endif
Note: See TracBrowser for help on using the repository browser.