- Timestamp:
- 2020-12-02T16:13:45+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13559sette10 ^/utils/CI/sette_MPI3_LoopFusion@13943 sette
-
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/do_loop_substitute.h90
r13899 r14012 59 59 #endif 60 60 61 #define DO_2D(B, T, L, R) DO jj = Njs0-(B), Nje0+(T) ; DO ji = Nis0-(L), Nie0+(R) 61 #define DO_2D(B, T, L, R) DO jj = ntsj-(B), ntej+(T) ; DO ji = ntsi-(L), ntei+(R) 62 #define A1Di(H) ntsi-H:ntei+H 63 #define A1Dj(H) ntsj-H:ntej+H 64 #define A2D(H) A1Di(H),A1Dj(H) 65 #define A1Di_T(T) (ntsi-nn_hls-1)*T+1: 66 #define A1Dj_T(T) (ntsj-nn_hls-1)*T+1: 67 #define A2D_T(T) A1Di_T(T),A1Dj_T(T) 68 #define JPK : 69 #define JPTS : 70 #define KJPT : 62 71 63 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.