Changeset 15033 for NEMO/trunk/tests/DOME

Timestamp:

2021-06-21T12:24:45+02:00 (3 years ago)

Author:

smasson

Message:

trunk: suppress jpim1 et jpjm1, #2699

File:

• NEMO/trunk/tests/DOME/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)

NEMO/trunk/tests/DOME/MY_SRC/usrdef_zgr.F90

@@ -86 +86 @@
       ! at u/v/f-point: averaging zht
       zhu(:,:) = 600_wp ; zhv(:,:) = 600_wp ; zhf(:,:) = 600_wp
-      DO ji = 1, jpim1
-         zhu(ji,:) = 0.5_wp * ( zht(ji,:) + zht(ji+1,:) )
-      END DO
-      DO jj = 1, jpjm1
-         zhv(:,jj) = 0.5_wp * ( zht(:,jj) + zht(:,jj+1) )
-      END DO
-      DO jj = 1, jpjm1
-         DO ji = 1, jpim1
-            zhf(ji,jj) = 0.25_wp * (  zht(ji,jj  ) + zht(ji+1,jj  ) &
-                       &            + zht(ji,jj+1) + zht(ji+1,jj+1) ) 
-         END DO
-      END DO
+      DO_2D( 0, 0, 0, 0 )
+         zhu(ji,jj) =  0.5_wp * ( zht(ji,jj  ) + zht(ji+1,jj  ) )
+         zhv(jj,jj) =  0.5_wp * ( zht(ji,jj  ) + zht(ji  ,jj+1) )
+         zhf(ji,jj) = 0.25_wp * ( zht(ji,jj  ) + zht(ji+1,jj  ) &
+                       &        + zht(ji,jj+1) + zht(ji+1,jj+1) ) 
+      END_2D
       CALL lbc_lnk( 'usrdef_zgr', zhu, 'U', 1.0_wp, zhv, 'V', 1.0_wp, zhf, 'F', 1.0_wp)      
       !