Changeset 13469 for NEMO/branches/2020/temporary_r4_trunk/src/OCE/DOM/domain.F90

Timestamp:

2020-09-15T12:49:18+02:00 (4 years ago)

Author:

smasson

Message:

r4_trunk: first change of DO loops for routines to be merged, see #2523

File:

• NEMO/branches/2020/temporary_r4_trunk/src/OCE/DOM/domain.F90 (modified) (1 diff)

NEMO/branches/2020/temporary_r4_trunk/src/OCE/DOM/domain.F90

@@ -140 +140 @@
                                        ! Read in masks to define closed seas and lakes 
       !
-      DO jj = 1, jpj                   ! depth of the iceshelves
-         DO ji = 1, jpi
-            ik = mikt(ji,jj)
-            risfdep(ji,jj) = gdepw_0(ji,jj,ik)
-         END DO
-      END DO
+      DO_2D_11_11
+         ik = mikt(ji,jj)
+         risfdep(ji,jj) = gdepw_0(ji,jj,ik)
+      END_2D
       !
       ht_0(:,:) = 0._wp  ! Reference ocean thickness