Changeset 9090 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY

Timestamp:

2017-12-15T18:12:43+01:00 (7 years ago)

Author:

flavoni

Message:

change lbc_lnk in lbc_lnk_multi

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY

Files:

• bdydyn3d.F90 (modified) (1 diff)
• bdyini.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

@@ -337 +337 @@
       END DO
       !
-      CALL lbc_lnk( ua, 'U', -1. )   ;   CALL lbc_lnk( va, 'V', -1. )   ! Boundary points should be updated
+      CALL lbc_lnk_multi( ua, 'U', -1.,  va, 'V', -1. )   ! Boundary points should be updated
       !
       IF( nn_timing == 1 )   CALL timing_stop('bdy_dyn3d_dmp')

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -1147 +1147 @@
             END DO
          END DO
-         CALL lbc_lnk( bdyumask(:,:), 'U', 1. )   ;   CALL lbc_lnk( bdyvmask(:,:), 'V', 1. )      ! Lateral boundary cond.
-
+         CALL lbc_lnk_multi( bdyumask, 'U', 1., bdyvmask, 'V', 1. )      ! Lateral boundary cond.
       ENDIF ! ln_mask_file=.TRUE.
       
@@ -1161 +1160 @@
             END DO
          END DO
-         CALL lbc_lnk( bdyumask(:,:), 'U', 1. )   ;   CALL lbc_lnk( bdyvmask(:,:), 'V', 1. )      ! Lateral boundary cond.
+         CALL lbc_lnk_multi( bdyumask, 'U', 1. , bdyvmask, 'V', 1. )   ! Lateral boundary cond. 
       ENDIF
 
@@ -1197 +1196 @@
 
       ! Lateral boundary conditions
-      CALL lbc_lnk( zfmask       , 'F', 1. )
-      CALL lbc_lnk( fmask        , 'F', 1. )   ;   CALL lbc_lnk( bdytmask(:,:), 'T', 1. )
-      CALL lbc_lnk( bdyumask(:,:), 'U', 1. )   ;   CALL lbc_lnk( bdyvmask(:,:), 'V', 1. )
-
+      CALL lbc_lnk_multi( zfmask, 'F', 1. , fmask, 'F', 1., bdyumask, 'U', 1. , bdyvmask, 'V', 1., bdytmask, 'T', 1. )
       DO ib_bdy = 1, nb_bdy       ! Indices and directions of rim velocity components