Changeset 14072 for NEMO/trunk/src/OCE/do_loop_substitute.h90

Timestamp:

2020-12-04T08:48:38+01:00 (4 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/do_loop_substitute.h90 (modified) (4 diffs)

NEMO/trunk/src/OCE/do_loop_substitute.h90

@@ -14 +14 @@
 !   DO jj = ....                           DO jj = ...
 !      DO ji = ....                           DO ji = ...
-!         .                   OR                 .  
+!         .                   OR                 .
 !         .                                      .
 !     END DO                                  END DO
@@ -25 +25 @@
 ! Upper limits of jpi, jpim1 or fs_jpim1 (for ji) or jpj, jpjm1 or fs_jpjm1 (for jj)
 !
-! The macro naming convention takes the form: DO_2D( B, T, L, R) where: 
+! The macro naming convention takes the form: DO_2D( B, T, L, R) where:
 !   B is the Bottom offset from the PE's inner domain;
 !   T is the Top    offset from the PE's inner domain;
@@ -32 +32 @@
 !
 ! So, given an inner domain of 2,jpim1 and 2,jpjm1, a typical example would replace:
-! 
+!
 !   DO jj = 2, jpj
 !      DO ji = 1, jpim1
@@ -46 +46 @@
 !      .
 !   END_2D
-! 
-! similar conventions apply to the 3D loops macros. jk loop limits are retained through macro arguments 
-! and are not restricted. This includes the possibility of strides for which an extra set of DO_3DS 
+!
+! similar conventions apply to the 3D loops macros. jk loop limits are retained through macro arguments
+! and are not restricted. This includes the possibility of strides for which an extra set of DO_3DS
 ! macros are defined.
 !
-! In the following definitions the inner PE domain is defined by start indices of (Nis0, Njs0) and end 
+! In the following definitions the inner PE domain is defined by start indices of (Nis0, Njs0) and end
 ! indices of (Nie0, Nje0) where:
 !
 ! Nis0 =   1 + nn_hls     Njs0 =   1 + nn_hls
 ! Nie0 = jpi - nn_hls     Nje0 = jpj - nn_hls
-! 
+!
 #endif