Changeset 6979 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2016-10-03T18:23:58+02:00 (8 years ago)

Author:

cetlod

Message:

SIMPLIF_2_usrdef : make it work for standard Offline configuration

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -69 +69 @@
       !!              - 1D configuration, move Coriolis, u and v at T-point
       !!----------------------------------------------------------------------
-      INTEGER ::   ji, jj, jk   ! dummy loop indices
+      INTEGER ::   ji, jj, jk, ik   ! dummy loop indices
       INTEGER ::   iconf = 0    ! local integers
       CHARACTER (len=64) ::   cform = "(A12, 3(A13, I7))" 
@@ -107 +107 @@
       !
       DO jj = 1, jpj                   ! depth of the iceshelves
-         DO ji = 1, jpj
-            risfdep(ji,jj) = gdepw_0(ji,jj,mikt(ji,jj))
+         DO ji = 1, jpi
+            ik = mikt(ji,jj)
+            risfdep(ji,jj) = gdepw_0(ji,jj,ik)
          END DO
       END DO