Changeset 13456 for NEMO/releases

Timestamp:

2020-09-10T17:42:42+02:00 (4 years ago)

Author:

francesca

Message:

fix ticket #2520 in r4.0-HEAD

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/traadv_cen.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/traadv_cen.F90

@@ -127 +127 @@
             DO jk = 1, jpkm1                       ! Horizontal advective fluxes
                DO jj = 2, jpjm1
-                  DO ji = 1, fs_jpim1   ! vector opt.
+                  DO ji = 2, fs_jpim1   ! vector opt.
                      zC2t_u = ptn(ji,jj,jk,jn) + ptn(ji+1,jj  ,jk,jn)   ! C2 interpolation of T at u- & v-points (x2)
                      zC2t_v = ptn(ji,jj,jk,jn) + ptn(ji  ,jj+1,jk,jn)
@@ -139 +139 @@
                END DO
             END DO         
+            CALL lbc_lnk_multi( 'traadv_cen', zwx, 'U', -1. , zwy, 'V', -1. )
             !
          CASE DEFAULT
-            CALL ctl_stop( 'traadv_fct: wrong value for nn_fct' )
+            CALL ctl_stop( 'traadv_cen: wrong value for nn_cen' )
          END SELECT
          !