Changeset 14215 for NEMO/trunk/src/OCE/ISF

Timestamp:

2020-12-18T14:49:22+01:00 (3 years ago)

Author:

acc

Message:

trunk changes to swap the order of arguments to the DO LOOP macros. These changes result in a more natural i-j-k ordering as explained in #2595. SETTE is passed before and after these changes and results are unchanged. This fixes #2595

File:

• NEMO/trunk/src/OCE/ISF/isftbl.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ISF/isftbl.F90

@@ -78 +78 @@
          ! compute tbl property at T point
          pvarout(1,:) = 0._wp
-         DO_2D( 1, 1, 0, 1 )
+         DO_2D( 0, 1, 1, 1 )
             pvarout(ji,jj) = 0.5_wp * (zvarout(ji,jj) + zvarout(ji-1,jj))
          END_2D
@@ -99 +99 @@
          ! pvarout is an averaging of wet point
          pvarout(:,1) = 0._wp
-         DO_2D( 0, 1, 1, 1 )
+         DO_2D( 1, 1, 0, 1 )
             pvarout(ji,jj) = 0.5_wp * (zvarout(ji,jj) + zvarout(ji,jj-1))
          END_2D