source: branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/wrk_nemo_ftrans.h90 @ 4460

   !!----------------------------------------------------------------------
   !!                   ***  wrk_nemo_ftrans  ***
   !!---------------------------------------------------------------------
   !! ** purpose : Directives to control permutation of array indices for
   !!   public multi-dimensional arrays with a z-dimension declared in module
   !!   wrk_nemo. It should be included wherever the module is used,
   !!   and updated whenever a new, public array is added to the module.
   !!
   !!   Note that these arrays are often used under different names, e.g.
   !!     USE wrk_nemo, ONLY:   zpc      =>  wrk_3d_1
   !!   Such cases will require additional ftrans directives in the lexical
   !!   scope of the using source file.
   !!----------------------------------------------------------------------
   !!----------------------------------------------------------------------
   !! 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
!FTRANS wrk_3d_1  :I :I :z
!FTRANS wrk_3d_2  :I :I :z
!FTRANS wrk_3d_3  :I :I :z
!FTRANS wrk_3d_4  :I :I :z
!FTRANS wrk_3d_5  :I :I :z
!FTRANS wrk_3d_6  :I :I :z
!FTRANS wrk_3d_7  :I :I :z
!FTRANS wrk_3d_8  :I :I :z
!FTRANS wrk_3d_9  :I :I :z
!FTRANS wrk_3d_10 :I :I :z
!FTRANS wrk_3d_11 :I :I :z
!FTRANS wrk_3d_12 :I :I :z
!FTRANS wrk_3d_13 :I :I :z
!FTRANS wrk_3d_14 :I :I :z
!FTRANS wrk_3d_15 :I :I :z
!FTRANS wrk_4d_1 :I :I :z :
!FTRANS wrk_4d_2 :I :I :z :
!FTRANS wrk_4d_3 :I :I :z :
!FTRANS wrk_4d_4 :I :I :z :

!! DCSE_NEMO_QUESTION: what to do about the wrk_xz_* arrays?
!! See allocate statements in work_nemo.F90 / wrk_alloc()
!FTRANS wrk_xz_1 :I :z
!FTRANS wrk_xz_2 :I :z
!FTRANS wrk_xz_3 :I :z
!FTRANS wrk_xz_4 :I :z