19 lines
935 B
Plaintext
Executable File
19 lines
935 B
Plaintext
Executable File
!!----------------------------------------------------------------------
|
|
!! *** vectopt_loop_substitute ***
|
|
!!----------------------------------------------------------------------
|
|
!! ** purpose : substitute the inner loop start/end indices with CPP macro
|
|
!! allow unrolling of do-loop (useful with vector processors)
|
|
!!----------------------------------------------------------------------
|
|
!!----------------------------------------------------------------------
|
|
!! NEMO/OCE 4.0 , NEMO Consortium (2018)
|
|
!! $Id: vectopt_loop_substitute.h90 10068 2018-08-28 14:09:04Z nicolasmartin $
|
|
!! Software governed by the CeCILL license (see ./LICENSE)
|
|
!!----------------------------------------------------------------------
|
|
#if defined key_vectopt_loop
|
|
# define fs_2 1
|
|
# define fs_jpim1 jpi
|
|
#else
|
|
# define fs_2 2
|
|
# define fs_jpim1 jpim1
|
|
#endif
|