source: branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/vectopt_loop_substitute.h90 @ 11200

Last change on this file since 11200 was 7960, checked in by jwhile, 4 years ago

Updated namelist_ref and 2nd attemp at updating SVN keywords

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