!!---------------------------------------------------------------------- !! *** dom_oce_ftrans *** !!---------------------------------------------------------------------- !! ** purpose : Directives to control permutation of array indices !! for multi-dimensional arrays with a z-dimension declared in module !! dom_oce. It should be included wherever the module is used, !! and updated whenever a new array is added to the module. !!---------------------------------------------------------------------- !!---------------------------------------------------------------------- !! NEMO/OPA 3.3 , NEMO Consortium (2011) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- #if defined key_z_first !FTRANS assert :z :I #else !FTRANS assert :I :z #endif !! DCSE_NEMO_QUESTION: Warning! See DOM/domzgr_substitute.h90 !FTRANS gdep3w :I :I :z !FTRANS gdept :I :I :z !FTRANS gdepw :I :I :z !FTRANS e3v :I :I :z !FTRANS e3f :I :I :z !FTRANS e3t :I :I :z !FTRANS e3u :I :I :z !FTRANS e3w :I :I :z !FTRANS e3vw :I :I :z !FTRANS e3uw :I :I :z !FTRANS gdep3w_1 :I :I :z !FTRANS gdept_1 :I :I :z !FTRANS gdepw_1 :I :I :z !FTRANS e3v_1 :I :I :z !FTRANS e3f_1 :I :I :z !FTRANS e3t_1 :I :I :z !FTRANS e3u_1 :I :I :z !FTRANS e3w_1 :I :I :z !FTRANS e3vw_1 :I :I :z !FTRANS e3uw_1 :I :I :z !FTRANS e3t_b :I :I :z !FTRANS e3u_b :I :I :z !FTRANS e3v_b :I :I :z !FTRANS tmask :I :I :z !FTRANS umask :I :I :z !FTRANS vmask :I :I :z !FTRANS fmask :I :I :z !! DCSE_NEMO_QUESTION: do we need to do anything about: !! npcoa, nicoa, njcoa !! See dom_oce_alloc() in dom_oce.F90