Changeset 9081 for branches

Timestamp:

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

Author:

cetlod

Message:

dev_merge_2017 : use of lbclnk_4d for TOP arrays

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC

Files:

• PISCES/P4Z/p4zsms.F90 (modified) (1 diff)
• TRP/trcnxt.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

@@ -166 +166 @@
          CALL sed_model( kt )     !  Main program of Sediment model
          !
-         DO jn = jp_pcs0, jp_pcs1
-           CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )
-         END DO
-         !
       ENDIF
       !

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
       !