New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12719 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/do_loop_substitute.h90 – NEMO

Ignore:
Timestamp:
2020-04-08T17:45:31+02:00 (4 years ago)
Author:
francesca
Message:

extra-halo management with positive arrays indices - ticket #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/do_loop_substitute.h90

    r12586 r12719  
    5959#define __kIsm1_   1 
    6060#define __kJsm1_   1 
    61 # 
    62 #define __kIsmh_   jplbi 
    63 #define __kJsmh_   jplbj 
    64 #define __kIsmhp1_   jplbi+1 
    65 #define __kJsmhp1_   jplbj+1 
    6661 
    6762#define __kIe_     jpi-1 
     
    8378#define DO_2D_10_10   DO jj = __kJsm1_, __kJe_   ;   DO ji = __kIsm1_, __kIe_ 
    8479#define DO_2D_10_11   DO jj = __kJsm1_, __kJe_   ;   DO ji = __kIsm1_, __kIep1_ 
    85 # 
    86 #define DO_2D_20_20   DO jj = __kJsmh_, __kJe_   ;   DO ji = __kIsmh_, __kIe_ 
    87 #define DO_2D_21_21   DO jj = __kJsmh_, __kJep1_   ;   DO ji = __kIsmh_, __kIep1_ 
    88 #define DO_2D_31_31   DO jj = __kJsmhp1_, __kJep1_ ;   DO ji = __kIsmhp1_, __kIep1_ 
    89 #define DO_2D_30_30   DO jj = __kJsmhp1_, __kJe_   ;   DO ji = __kIsmhp1_, __kIe_ 
    9080  
    9181#define DO_2D_11_00   DO jj = __kJsm1_, __kJep1_   ;   DO ji = __kIs_, __kIe_ 
     
    10292#define DO_3D_10_10(ks,ke)   DO jk = ks, ke   ;   DO_2D_10_10 
    10393#define DO_3D_10_11(ks,ke)   DO jk = ks, ke   ;   DO_2D_10_11 
    104 # 
    105 #define DO_3D_20_20(ks,ke)   DO jk = ks, ke   ;   DO_2D_20_20 
    106 #define DO_3D_21_21(ks,ke)   DO jk = ks, ke   ;   DO_2D_21_21 
    107 #define DO_3D_31_31(ks,ke)   DO jk = ks, ke   ;   DO_2D_31_31 
    108 #define DO_3D_30_30(ks,ke)   DO jk = ks, ke   ;   DO_2D_30_30 
    10994  
    11095#define DO_3D_11_11(ks,ke)   DO jk = ks, ke   ;   DO_2D_11_11 
    111 #define DO_3D_21_21(ks,ke)   DO jk = ks, ke   ;   DO_2D_21_21 
    11296 
    11397#define DO_3DS_00_00(ks,ke,ki)   DO jk = ks, ke, ki   ;   DO_2D_00_00 
Note: See TracChangeset for help on using the changeset viewer.