Changeset 5038 for branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/vectopt_loop_substitute.h90
- Timestamp:
- 2015-01-20T15:26:13+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/vectopt_loop_substitute.h90
r2528 r5038 2 2 !! *** vectopt_loop_substitute *** 3 3 !!---------------------------------------------------------------------- 4 !! ** purpose : substitute the inner loop start ing and inding indices5 !! to allow unrolling of do-loop using CPP macro.4 !! ** purpose : substitute the inner loop start/end indices with CPP macro 5 !! allow unrolling of do-loop (useful with vector processors) 6 6 !!---------------------------------------------------------------------- 7 7 !!---------------------------------------------------------------------- 8 !! NEMO/OPA 3. 3 , NEMO Consortium (2010)8 !! NEMO/OPA 3.7 , NEMO Consortium (2014) 9 9 !! $Id$ 10 10 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 11 11 !!---------------------------------------------------------------------- 12 12 #if defined key_vectopt_loop 13 # define fs_2114 # define fs_jpim1jpi13 # define fs_2 1 14 # define fs_jpim1 jpi 15 15 #else 16 # define fs_2217 # define fs_jpim1jpim116 # define fs_2 2 17 # define fs_jpim1 jpim1 18 18 #endif
Note: See TracChangeset
for help on using the changeset viewer.