Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/do_loop_substitute.h90
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/do_loop_substitute.h90
r14072 r14644 2 2 ! These comments are not intended to be retained during preprocessing; i.e. do not define "show_comments" 3 3 !!---------------------------------------------------------------------- 4 !! NEMO/OCE 4. 0 , NEMO Consortium (2018)4 !! NEMO/OCE 4.x , NEMO Consortium (2020) 5 5 !! Software governed by the CeCILL license (see ./LICENSE) 6 6 !!---------------------------------------------------------------------- … … 25 25 ! Upper limits of jpi, jpim1 or fs_jpim1 (for ji) or jpj, jpjm1 or fs_jpjm1 (for jj) 26 26 ! 27 ! The macro naming convention takes the form: DO_2D( B, T, L, R) where: 27 ! The macro naming convention takes the form: DO_2D( L, R, B, T) where: 28 ! L is the Left offset from the PE's inner domain; 29 ! R is the Right offset from the PE's inner domain 28 30 ! B is the Bottom offset from the PE's inner domain; 29 31 ! T is the Top offset from the PE's inner domain; 30 ! L is the Left offset from the PE's inner domain;31 ! R is the Right offset from the PE's inner domain32 32 ! 33 33 ! So, given an inner domain of 2,jpim1 and 2,jpjm1, a typical example would replace: … … 42 42 ! with: 43 43 ! 44 ! DO_2D( 0, 1, 1, 0)44 ! DO_2D( 1, 0, 0, 1 ) 45 45 ! . 46 46 ! . … … 59 59 #endif 60 60 61 #define DO_2D( B, T, L, R) DO jj = ntsj-(B), ntej+(T) ; DO ji = ntsi-(L), ntei+(R)61 #define DO_2D(L, R, B, T) DO jj = ntsj-(B), ntej+(T) ; DO ji = ntsi-(L), ntei+(R) 62 62 #define A1Di(H) ntsi-H:ntei+H 63 63 #define A1Dj(H) ntsj-H:ntej+H … … 70 70 #define KJPT : 71 71 72 #define DO_3D( B, T, L, R, ks, ke) DO jk = ks, ke ; DO_2D(B, T, L, R)72 #define DO_3D(L, R, B, T, ks, ke) DO jk = ks, ke ; DO_2D(L, R, B, T) 73 73 74 #define DO_3DS( B, T, L, R, ks, ke, ki) DO jk = ks, ke, ki ; DO_2D(B, T, L, R)74 #define DO_3DS(L, R, B, T, ks, ke, ki) DO jk = ks, ke, ki ; DO_2D(L, R, B, T) 75 75 76 76 #define END_2D END DO ; END DO
Note: See TracChangeset
for help on using the changeset viewer.