Changeset 13539 for NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/do_loop_substitute.h90
- Timestamp:
- 2020-09-29T12:40:29+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/do_loop_substitute.h90
r13514 r13539 63 63 #define ST_1Dj(H) ntsj-H:ntej+H 64 64 #define ST_2D(H) ST_1Di(H),ST_1Dj(H) 65 #define ST_1DTi(T) (ntsi-nn_hls-1)*T+1: (ntei+nn_hls-jpi)*T+jpi66 #define ST_1DTj(T) (ntsj-nn_hls-1)*T+1: (ntej+nn_hls-jpj)*T+jpj65 #define ST_1DTi(T) (ntsi-nn_hls-1)*T+1: 66 #define ST_1DTj(T) (ntsj-nn_hls-1)*T+1: 67 67 #define ST_2DT(T) ST_1DTi(T),ST_1DTj(T) 68 #define JPK : 69 #define JPTS : 70 #define KJPT : 68 71 69 72 #define DO_3D(B, T, L, R, ks, ke) DO jk = ks, ke ; DO_2D(B, T, L, R)
Note: See TracChangeset
for help on using the changeset viewer.