Changeset 12740 for NEMO/trunk/tests/BENCH/MY_SRC/usrdef_istate.F90

Timestamp:

2020-04-12T11:03:06+02:00 (4 years ago)

Author:

smasson

Message:

trunk: update/debug of tests and C1D, see #2442

File:

• NEMO/trunk/tests/BENCH/MY_SRC/usrdef_istate.F90 (modified) (2 diffs)

NEMO/trunk/tests/BENCH/MY_SRC/usrdef_istate.F90

@@ -28 +28 @@
    PUBLIC   usr_def_istate   ! called by istate.F90
 
+   !! * Substitutions
+#  include "do_loop_substitute.h90"
    !!----------------------------------------------------------------------
    !! NEMO/OPA 4.0 , NEMO Consortium (2016)
@@ -62 +64 @@
       !
       ! define unique value on each point. z2d ranging from 0.05 to -0.05
-      DO jj = 1, jpj
-         DO ji = 1, jpi
-            z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig(ji) + mjg(jj) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) )
-         ENDDO
-      ENDDO
+      DO_2D_11_11
+         z2d(ji,jj) = 0.1 * ( 0.5 - REAL( mig(ji) + mjg(jj) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) )
+      END_2D
       !
       ! sea level: