Changeset 9094 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mus.F90

Timestamp:

2017-12-15T18:26:58+01:00 (6 years ago)

Author:

cetlod

Message:

Use of lbclnk_multi in subdir LDF & TRA

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mus.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mus.F90

@@ -142 +142 @@
            END DO
          END DO
-         CALL lbc_lnk( zwx, 'U', -1. )          ! lateral boundary conditions   (changed sign)
-         CALL lbc_lnk( zwy, 'V', -1. )
+         ! lateral boundary conditions   (changed sign)
+         CALL lbc_lnk_multi( zwx, 'U', -1. , zwy, 'V', -1. )
          !                                !-- Slopes of tracer
          zslpx(:,:,jpk) = 0._wp                 ! bottom values
@@ -191 +191 @@
             END DO
          END DO
-         CALL lbc_lnk( zwx, 'U', -1. )   ;   CALL lbc_lnk( zwy, 'V', -1. )   ! lateral boundary conditions   (changed sign)
+         CALL lbc_lnk_multi( zwx, 'U', -1. , zwy, 'V', -1. )   ! lateral boundary conditions   (changed sign)
          !
          DO jk = 1, jpkm1                 !-- Tracer advective trend