source: branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/OPA_SRC/vectopt_loop_substitute.h90 @ 8485

Last change on this file since 8485 was 6486, checked in by davestorkey, 5 years ago

Remove SVN keywords from UKMO/dev_r5518_GO6_package branch.

File size: 873 bytes
Line 
1   !!----------------------------------------------------------------------
2   !!                   ***  vectopt_loop_substitute  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose :   substitute the inner loop start/end indices with CPP macro
5   !!                allow unrolling of do-loop (useful with vector processors)
6   !!----------------------------------------------------------------------
7   !!----------------------------------------------------------------------
8   !! NEMO/OPA 3.7 , NEMO Consortium (2014)
9   !! $Id$
10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12#if defined key_vectopt_loop
13#  define   fs_2       1
14#  define   fs_jpim1   jpi
15#else
16#  define   fs_2       2
17#  define   fs_jpim1   jpim1
18#endif
Note: See TracBrowser for help on using the repository browser.