Changeset 12765 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/do_loop_substitute.h90
- Timestamp:
- 2020-04-17T14:45:04+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/do_loop_substitute.h90
r12377 r12765 55 55 ! 56 56 #endif 57 #define __kIs_ 258 #define __kJs_ 259 #define __kIsm1_ 160 #define __kJsm1_ 157 #define __kIs_ ntsi 58 #define __kJs_ ntsj 59 #define __kIsm1_ ntsim1 60 #define __kJsm1_ ntsjm1 61 61 62 #define __kIe_ jpim1 63 #define __kJe_ jpjm1 64 #define __kIep1_ jpi 65 #define __kJep1_ jpj 62 #define __kIe_ ntei 63 #define __kJe_ ntej 64 #define __kIep1_ nteip1 65 #define __kJep1_ ntejp1 66 67 #define IND_2D __kIsm1_:__kIep1_,__kJsm1_:__kJep1_ 66 68 67 69 #define DO_2D_00_00 DO jj = __kJs_, __kJe_ ; DO ji = __kIs_, __kIe_
Note: See TracChangeset
for help on using the changeset viewer.