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/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC/vectopt_loop_substitute.h90 @ 7773

Last change on this file since 7773 was 7773, checked in by mattmartin, 7 years ago

Committing updates after doing the following:

  • merging the branch dev_r4650_general_vert_coord_obsoper@7763 into this branch
  • updating it so that the following OBS changes were implemented correctly on top of the simplification changes:
    • generalised vertical coordinate for profile obs. This was done so that is now the default option.
    • sst bias correction implemented with the new simplified obs code.
    • included the biogeochemical obs types int he new simplified obs code.
    • included the changes to exclude obs in the boundary for limited area models
    • included other changes for the efficiency of the obs operator to remove global arrays.
File size: 940 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/OPA 3.7 , NEMO Consortium (2014)
9   !! $Id: vectopt_loop_substitute.h90 7740 2017-02-27 13:18:43Z mattmartin $
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.