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 branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/vectopt_loop_substitute.h90 @ 4409

Last change on this file since 4409 was 3187, checked in by spickles2, 12 years ago

Stephen Pickles, 28 Nov 2011.
First commit of dCSE NEMO project work, part 1 - index re-ordering,
OPA_SRC top level only. Includes fix for sub-optimal auto-partitioning
in nemogcm.F90.
  • Property svn:keywords set to Id
File size: 832 bytes
Line 
1   !!----------------------------------------------------------------------
2   !!                   ***  vectopt_loop_substitute  ***
3   !!----------------------------------------------------------------------
4   !! ** purpose :   substitute the inner loop starting and ending indices
5   !!      to allow unrolling of do-loop using CPP macro.
6   !!----------------------------------------------------------------------
7   !!----------------------------------------------------------------------
8   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
9   !! $Id$
10   !! Software governed by the CeCILL licence (NEMOGCM/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.