| 123456789101112131415161718 |
- !!----------------------------------------------------------------------
- !! *** vectopt_loop_substitute ***
- !!----------------------------------------------------------------------
- !! ** purpose : substitute the inner loop start/end indices with CPP macro
- !! allow unrolling of do-loop (useful with vector processors)
- !!----------------------------------------------------------------------
- !!----------------------------------------------------------------------
- !! NEMO/OPA 3.7 , NEMO Consortium (2014)
- !! $Id: vectopt_loop_substitute.h90 4990 2014-12-15 16:42:49Z timgraham $
- !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
- !!----------------------------------------------------------------------
- #if defined key_vectopt_loop
- # define fs_2 1
- # define fs_jpim1 jpi
- #else
- # define fs_2 2
- # define fs_jpim1 jpim1
- #endif
|
