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 branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/ZDF – NEMO

source: branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90 @ 8026

Last change on this file since 8026 was 8026, checked in by lovato, 7 years ago

3.6 stable: solve ticket #1835 and add following fixes (tested with SETTE):

  • add key_offline control in zdfddm_substitute.h90
  • use loop index in rab2d as in rab3d, and take out lbc calls
  • make atm_co2 always accessible from sbc_oce
  • update sette scripts for athena cluster
  • Property svn:keywords set to Id
File size: 981 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#if defined key_zdfddm && ! defined key_offline
8!   'key_zdfddm' :                      avs: 3D array defined in zdfddm module
9#   define   fsavs(i,j,k)       avs(i,j,k)
10#else
11!   Defautl option :                     avs = avt
12#   define   fsavs(i,j,k)       avt(i,j,k)
13#endif
14   !!----------------------------------------------------------------------
15   !! NEMO/OPA 4.0 , NEMO Consortium (2011)
16   !! $Id$
17   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
18   !!----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.