New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
vectopt_loop_substitute.h90 in NEMO/branches/2019/ENHANCE-03_domcfg/src – NEMO

source: NEMO/branches/2019/ENHANCE-03_domcfg/src/vectopt_loop_substitute.h90 @ 11602

Last change on this file since 11602 was 10727, checked in by rblod, 5 years ago

new nesting tools (attempt) and brutal cleaning of DOMAINcfg, see ticket #2129

File size: 935 bytes
Line 
1   !!----------------------------------------------------------------------
2   !!                   ***  vectopt_loop_substitute  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose :   substitute the inner loop start/end indices with CPP macro
5   !!                allow unrolling of do-loop (useful with vector processors)
6   !!----------------------------------------------------------------------
7   !!----------------------------------------------------------------------
8   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
9   !! $Id: vectopt_loop_substitute.h90 10068 2018-08-28 14:09:04Z nicolasmartin $
10   !! Software governed by the CeCILL license (see ./LICENSE)
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.