Changeset 3902 for branches/2013/dev_r3891_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

Timestamp:

2013-05-03T17:18:56+02:00 (11 years ago)

Author:

davestorkey

Message:

bug fixes

File:

• branches/2013/dev_r3891_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90 (modified) (1 diff)

branches/2013/dev_r3891_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -1139 +1139 @@
                nbi => idx_bdy(ib_bdy)%nbi(ib,igrd)
                nbj => idx_bdy(ib_bdy)%nbj(ib,igrd)
-               znfl = bdytmask(nbi,nbj  )
-               zsfl = bdytmask(nbi,nbj+1)
+               znfl = mask(nbi,nbj  )
+               zsfl = mask(nbi,nbj+1)
                IF( znfl + zsfl == 2 ) THEN
                   icount = icount + 1