Changeset 3702

Timestamp:

2012-11-28T11:01:44+01:00 (11 years ago)

Author:

cbricaud

Message:

correction of indexes out of arrays bounds in domzgr for SUBROUTINE s_sf12

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (2 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -1679 +1679 @@
       ENDDO    ! for all ji's
 
-      DO ji=1,jpi
-        DO jj=1,jpj
+      DO ji=1,jpi-1
+        DO jj=1,jpj-1
 
           DO jk = 1, jpk
@@ -1707 +1707 @@
         ENDDO
       ENDDO
+      !
+      CALL lbc_lnk(e3t ,'T',1.) ; CALL lbc_lnk(e3u ,'T',1.)
+      CALL lbc_lnk(e3v ,'T',1.) ; CALL lbc_lnk(e3f ,'T',1.)
+      CALL lbc_lnk(e3w ,'T',1.)
+      CALL lbc_lnk(e3uw,'T',1.) ; CALL lbc_lnk(e3vw,'T',1.)
+      !
       !                                               ! =============