Changeset 9081 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2017-12-15T17:33:49+01:00 (6 years ago)

Author:

cetlod

Message:

dev_merge_2017 : use of lbclnk_4d for TOP arrays

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -96 +96 @@
       CALL Agrif_trc                   ! AGRIF zoom boundaries
 #endif
-      DO jn = 1, jptra                 ! Update after tracer on domain lateral boundaries
-         CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. )   
-      END DO
+      ! Update after tracer on domain lateral boundaries
+      CALL lbc_lnk( tra(:,:,:,:), 'T', 1. )   
 
       IF( ln_bdy )  CALL trc_bdy( kt )
@@ -124 +123 @@
          ENDIF
          !
-         DO jn = 1, jptra
-            CALL lbc_lnk_multi( trb(:,:,:,jn), 'T', 1._wp, trn(:,:,:,jn), 'T', 1._wp, tra(:,:,:,jn), 'T', 1._wp )
-         END DO
+         CALL lbc_lnk_multi( trb(:,:,:,:), 'T', 1._wp, trn(:,:,:,:), 'T', 1._wp, tra(:,:,:,:), 'T', 1._wp )
       ENDIF
       !