Changeset 15033 for NEMO/trunk/tests/WAD/MY_SRC

Timestamp:

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

Author:

smasson

Message:

trunk: suppress jpim1 et jpjm1, #2699

File:

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

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

@@ -230 +230 @@
 
       ! at u-point: averaging zht
-      DO ji = 1, jpim1
-         zhu(ji,:) = 0.5_wp * ( zht(ji,:) + zht(ji+1,:) )
-      END DO
+      DO_2D( 0, 0, 0, 0 )
+         zhu(ji,jj) = 0.5_wp * ( zht(ji,jj) + zht(ji+1,jj) )
+      END_2D
       CALL lbc_lnk( 'usrdef_zgr', zhu, 'U', 1. )     ! boundary condition: this mask the surrounding grid-points
       !                                ! ==>>>  set by hand non-zero value on first/last columns & rows