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.
obc_vectopt_loop_substitute.h90 in tags/nemo_v3_2/nemo_v3_2/NEMO/OPA_SRC/OBC – NEMO

source: tags/nemo_v3_2/nemo_v3_2/NEMO/OPA_SRC/OBC/obc_vectopt_loop_substitute.h90 @ 1878

Last change on this file since 1878 was 1878, checked in by flavoni, 14 years ago

initial test for nemogcm

File size: 1.3 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                 ***  obc_vectopt_loop_substitute.h90  ***
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   !! $Id: obc_vectopt_loop_substitute.h90 1152 2008-06-26 14:11:13Z rblod $
10   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
11   !!----------------------------------------------------------------------
12#if defined key_vectopt_loop && defined key_obc && ! defined key_mpp_mpi && ! defined key_mpp_shmem
13#  define fs_niw0  jpiwob
14#  define fs_niw1  jpiwob
15#  define fs_nie0  jpieob
16#  define fs_nie1  jpieob
17#  define fs_njn0  jpjnob
18#  define fs_njn1  jpjnob
19#  define fs_njs0  jpjsob
20#  define fs_njs1  jpjsob
21#else
22#  define fs_niw0  niw0
23#  define fs_niw1  niw1
24#  define fs_nie0  nie0
25#  define fs_nie1  nie1
26#  define fs_njn0  njn0
27#  define fs_njn1  njn1
28#  define fs_njs0  njs0
29#  define fs_njs1  njs1
30#endif
Note: See TracBrowser for help on using the repository browser.