Ignore:
Timestamp:
2020-05-06T14:38:01+02:00 (9 months ago)
Author:
hadcv
Message:

Changes following feedback

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/do_loop_substitute.h90

    r12765 r12879  
    5555! 
    5656#endif 
    57 #define __kIs_     ntsi 
    58 #define __kJs_     ntsj 
    59 #define __kIsm1_   ntsim1 
    60 #define __kJsm1_   ntsjm1 
     57#define __kIs_     ntsi(ntile) 
     58#define __kJs_     ntsj(ntile) 
     59#define __kIsm1_   __kIs_ - nn_hls 
     60#define __kJsm1_   __kJs_ - nn_hls 
    6161 
    62 #define __kIe_     ntei 
    63 #define __kJe_     ntej 
    64 #define __kIep1_   nteip1 
    65 #define __kJep1_   ntejp1 
     62#define __kIe_     ntei(ntile) 
     63#define __kJe_     ntej(ntile) 
     64#define __kIep1_   __kIe_ + nn_hls 
     65#define __kJep1_   __kJe_ + nn_hls 
    6666 
    67 #define IND_2D     __kIsm1_:__kIep1_,__kJsm1_:__kJep1_ 
     67#define A2D        __kIsm1_:__kIep1_,__kJsm1_:__kJep1_ 
    6868 
    6969#define DO_2D_00_00   DO jj = __kJs_, __kJe_   ;   DO ji = __kIs_, __kIe_ 
Note: See TracChangeset for help on using the changeset viewer.