Changeset 9097 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90

Timestamp:

2017-12-15T18:36:32+01:00 (6 years ago)

Author:

cetlod

Message:

Use of lbclnk_multi in subdir USR & TRD

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90

@@ -168 +168 @@
 
       zudpvor(:,:) = 0._wp                 ;   zvdpvor(:,:) = 0._wp                    ! Initialisation
-      CALL lbc_lnk( putrdvor, 'U', -1. )   ;   CALL lbc_lnk( pvtrdvor, 'V', -1. )      ! lateral boundary condition
+      CALL lbc_lnk_multi( putrdvor, 'U', -1. , pvtrdvor, 'V', -1. )      ! lateral boundary condition
       
 
@@ -260 +260 @@
       zudpvor(:,:) = 0._wp
       zvdpvor(:,:) = 0._wp
-      !
-      CALL lbc_lnk( putrdvor, 'U', -1. )         ! lateral boundary condition on input momentum trends
-      CALL lbc_lnk( pvtrdvor, 'V', -1. )
+      !                            ! lateral boundary condition on input momentum trends
+      CALL lbc_lnk_multi( putrdvor, 'U', -1. , pvtrdvor, 'V', -1. )
 
       !  =====================================
@@ -411 +410 @@
 
          ! Boundary conditions
-         CALL lbc_lnk( vor_avrtot, 'F', 1. )
-         CALL lbc_lnk( vor_avrres, 'F', 1. )
+         CALL lbc_lnk_multi( vor_avrtot, 'F', 1. , vor_avrres, 'F', 1. )