source:
tags/nemo_v1_10/NEMO/OFF_SRC/vectopt_loop_substitute.h90
@
402
| Last change on this file since 402 was 402, checked in by cvs2svn, 18 years ago | |
|---|---|
|
|
| File size: 844 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 | !!---------------------------------------------------------------------- |
| 8 | !! OPA 9.0 , LOCEAN-IPSL (2005) |
| 9 | !! $Header$ |
| 10 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
| 11 | !!---------------------------------------------------------------------- |
| 12 | #if defined key_vectopt_loop |
| 13 | # define fs_2 1 |
| 14 | # define fs_jpim1 jpi |
| 15 | #else |
| 16 | # define fs_2 2 |
| 17 | # define fs_jpim1 jpim1 |
| 18 | #endif |
Note: See TracBrowser
for help on using the repository browser.
