Changeset 11073 for NEMO/releases/release-4.0/src

Timestamp:

2019-06-04T15:16:58+02:00 (5 years ago)

Author:

girrmann

Message:

v4 : fix bug in flather for bdy, see #2287

File:

• NEMO/releases/release-4.0/src/OCE/BDY/bdydyn2d.F90 (modified) (2 diffs)

NEMO/releases/release-4.0/src/OCE/BDY/bdydyn2d.F90

@@ -187 +187 @@
          ! Use characteristics method instead
          zflag = ABS(flagu)
-         zforc = dta%u2d(jb) * (1._wp - z1_2*zflag) + z1_2 * zflag * pua2d(iim1,ij)
+         zforc = dta%u2d(jb) * (1._wp - z1_2*zflag) + z1_2 * zflag * pua2d(ii+NINT(flagu),ij)
          pua2d(ii,ij) = zforc + (1._wp - z1_2*zflag) * zcorr * umask(ii,ij,1) 
       END DO
@@ -205 +205 @@
          ! Use characteristics method instead
          zflag = ABS(flagv)
-         zforc  = dta%v2d(jb) * (1._wp - z1_2*zflag) + z1_2 * zflag * pva2d(ii,ijm1)
+         zforc  = dta%v2d(jb) * (1._wp - z1_2*zflag) + z1_2 * zflag * pva2d(ii,ij+NINT(flagv))
          pva2d(ii,ij) = zforc + (1._wp - z1_2*zflag) * zcorr * vmask(ii,ij,1)
       END DO