Changeset 11303 for NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/BDY/bdydyn2d.F90

Timestamp:

2019-07-18T17:12:52+02:00 (5 years ago)

Author:

dancopsey

Message:

update to be relative to 11081 of NEMO_4.0_mirror

File:

• NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/BDY/bdydyn2d.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/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