Changeset 12979 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/do_loop_substitute.h90

Timestamp:

2020-05-27T14:38:32+02:00 (4 years ago)

Author:

hadcv

Message:

Replace references to tile index arrays with scalars

File:

• NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/do_loop_substitute.h90 (modified) (1 diff)

NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/do_loop_substitute.h90

@@ -55 +55 @@
 !
 #endif
-#define __kIs_     ntsi(ntile)
-#define __kJs_     ntsj(ntile)
+#define __kIs_     ntsi
+#define __kJs_     ntsj
 #define __kIsm1_   __kIs_ - nn_hls
 #define __kJsm1_   __kJs_ - nn_hls
 
-#define __kIe_     ntei(ntile)
-#define __kJe_     ntej(ntile)
+#define __kIe_     ntei
+#define __kJe_     ntej
 #define __kIep1_   __kIe_ + nn_hls
 #define __kJep1_   __kJe_ + nn_hls