Changeset 12719 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/do_loop_substitute.h90
- Timestamp:
- 2020-04-08T17:45:31+02:00 (4 years ago)
- 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 59 59 #define __kIsm1_ 1 60 60 #define __kJsm1_ 1 61 #62 #define __kIsmh_ jplbi63 #define __kJsmh_ jplbj64 #define __kIsmhp1_ jplbi+165 #define __kJsmhp1_ jplbj+166 61 67 62 #define __kIe_ jpi-1 … … 83 78 #define DO_2D_10_10 DO jj = __kJsm1_, __kJe_ ; DO ji = __kIsm1_, __kIe_ 84 79 #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_90 80 91 81 #define DO_2D_11_00 DO jj = __kJsm1_, __kJep1_ ; DO ji = __kIs_, __kIe_ … … 102 92 #define DO_3D_10_10(ks,ke) DO jk = ks, ke ; DO_2D_10_10 103 93 #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_20106 #define DO_3D_21_21(ks,ke) DO jk = ks, ke ; DO_2D_21_21107 #define DO_3D_31_31(ks,ke) DO jk = ks, ke ; DO_2D_31_31108 #define DO_3D_30_30(ks,ke) DO jk = ks, ke ; DO_2D_30_30109 94 110 95 #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_21112 96 113 97 #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.