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/trunk/src/OCE – NEMO

source: NEMO/trunk/src/OCE/vectopt_loop_substitute.h90 @ 9598

Last change on this file since 9598 was 9598, checked in by nicolasmartin, 6 years ago

Reorganisation plan for NEMO repository: changes to make compilation succeed with new structure
Juste one issue left with AGRIF_NORDIC with AGRIF preprocessing
Standardisation of routines header with version 4.0 and year 2018
Fix for some broken symlinks

  • Property svn:keywords set to Id
File size: 860 bytes
RevLine 
[3]1   !!----------------------------------------------------------------------
2   !!                   ***  vectopt_loop_substitute  ***
3   !!----------------------------------------------------------------------
[4990]4   !! ** purpose :   substitute the inner loop start/end indices with CPP macro
5   !!                allow unrolling of do-loop (useful with vector processors)
[3]6   !!----------------------------------------------------------------------
[247]7   !!----------------------------------------------------------------------
[9598]8   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
[1152]9   !! $Id$
[9598]10   !! Software governed by the CeCILL licence (./LICENSE)
[247]11   !!----------------------------------------------------------------------
[3]12#if defined key_vectopt_loop
[4990]13#  define   fs_2       1
14#  define   fs_jpim1   jpi
[3]15#else
[4990]16#  define   fs_2       2
17#  define   fs_jpim1   jpim1
[3]18#endif
Note: See TracBrowser for help on using the repository browser.