Changeset 13819 for NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/do_loop_substitute.h90

Timestamp:

2020-11-18T19:02:11+01:00 (4 years ago)

Author:

hadcv

Message:

#2365: Final fixes and changes

File:

• NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/do_loop_substitute.h90 (modified) (1 diff)

NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/do_loop_substitute.h90

@@ -60 +60 @@
 
 #define DO_2D(B, T, L, R) DO jj = ntsj-(B), ntej+(T)   ;   DO ji = ntsi-(L), ntei+(R)
-#define ST_1Di(H) ntsi-H:ntei+H
-#define ST_1Dj(H) ntsj-H:ntej+H
-#define ST_2D(H) ST_1Di(H),ST_1Dj(H)
-#define ST_1DTi(T) (ntsi-nn_hls-1)*T+1:
-#define ST_1DTj(T) (ntsj-nn_hls-1)*T+1:
-#define ST_2DT(T) ST_1DTi(T),ST_1DTj(T)
+#define A1Di(H) ntsi-H:ntei+H
+#define A1Dj(H) ntsj-H:ntej+H
+#define A2D(H) A1Di(H),A1Dj(H)
+#define A1Di_T(T) (ntsi-nn_hls-1)*T+1:
+#define A1Dj_T(T) (ntsj-nn_hls-1)*T+1:
+#define A2D_T(T) A1Di_T(T),A1Dj_T(T)
 #define JPK  :
 #define JPTS  :