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.
dom_oce_ftrans.h90 in branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM – NEMO

source: branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce_ftrans.h90 @ 4400

Last change on this file since 4400 was 3211, checked in by spickles2, 12 years ago

Stephen Pickles, 11 Dec 2011

Commit to bring the rest of the DCSE NEMO development branch
in line with the latest development version. This includes
array index re-ordering of all OPA_SRC/.

  • Property svn:keywords set to Id
File size: 1.7 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                   ***  dom_oce_ftrans  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose : Directives to control permutation of array indices
5   !!   for multi-dimensional arrays with a z-dimension declared in module
6   !!   dom_oce.  It should be included wherever the module is used,
7   !!   and updated whenever a new array is added to the module.
8   !!----------------------------------------------------------------------
9   !!----------------------------------------------------------------------
10   !! NEMO/OPA 3.3 , NEMO Consortium (2011)
11   !! $Id$
12   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
13   !!----------------------------------------------------------------------
14
15#if defined key_z_first
16!FTRANS assert :z :I
17#else
18!FTRANS assert :I :z
19#endif
20
21!! DCSE_NEMO_QUESTION: Warning! See DOM/domzgr_substitute.h90
22
23!FTRANS gdep3w :I :I :z
24!FTRANS gdept :I :I :z
25!FTRANS gdepw :I :I :z
26
27!FTRANS e3v :I :I :z
28!FTRANS e3f :I :I :z
29!FTRANS e3t :I :I :z
30!FTRANS e3u :I :I :z
31!FTRANS e3w :I :I :z
32!FTRANS e3vw :I :I :z
33!FTRANS e3uw :I :I :z
34
35!FTRANS gdep3w_1 :I :I :z
36!FTRANS gdept_1 :I :I :z
37!FTRANS gdepw_1 :I :I :z
38!FTRANS e3v_1 :I :I :z
39!FTRANS e3f_1 :I :I :z
40!FTRANS e3t_1 :I :I :z
41!FTRANS e3u_1 :I :I :z
42!FTRANS e3w_1 :I :I :z
43!FTRANS e3vw_1 :I :I :z
44!FTRANS e3uw_1 :I :I :z
45!FTRANS e3t_b :I :I :z
46!FTRANS e3u_b :I :I :z
47!FTRANS e3v_b :I :I :z
48
49!FTRANS tmask :I :I :z
50!FTRANS umask :I :I :z
51!FTRANS vmask :I :I :z
52!FTRANS fmask :I :I :z
53
54!! DCSE_NEMO_QUESTION: do we need to do anything about:
55!! npcoa, nicoa, njcoa
56!! See dom_oce_alloc() in dom_oce.F90
57
58
Note: See TracBrowser for help on using the repository browser.