source:
trunk/NEMO/OPA_SRC/vectopt_loop_substitute.h90
@
3
| Last change on this file since 3 was 3, checked in by opalod, 20 years ago | |
|---|---|
|
|
| File size: 552 bytes | |
| Line | |
|---|---|
| 1 | !!---------------------------------------------------------------------- |
| 2 | !! *** vectopt_loop_substitute *** |
| 3 | !!---------------------------------------------------------------------- |
| 4 | !! ** purpose : substitute the inner loop starting and inding indices |
| 5 | !! to allow unrolling of do-loop using CPP macro. |
| 6 | !!---------------------------------------------------------------------- |
| 7 | #if defined key_vectopt_loop |
| 8 | # define fs_2 1 |
| 9 | # define fs_jpim1 jpi |
| 10 | #else |
| 11 | # define fs_2 2 |
| 12 | # define fs_jpim1 jpim1 |
| 13 | #endif |
Note: See TracBrowser
for help on using the repository browser.
