Changeset 9050

Timestamp:

2017-12-14T15:26:01+01:00 (6 years ago)

Author:

cetlod

Message:

First use of lbc_lnk_multi in TOP routines

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC

Files:

• PISCES/P2Z/p2zbio.F90 (modified) (1 diff)
• TRP/trcnxt.F90 (modified) (1 diff)
• TRP/trdmxl_trc.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90

@@ -348 +348 @@
             CALL lbc_lnk( zw2d(:,:,jl),'T', 1. )
          END DO
-         DO jl = 1, 3
-            CALL lbc_lnk( zw3d(:,:,:,jl),'T', 1. )
-         END DO
+         CALL lbc_lnk_multi( zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. )
       ENDIF
       IF( lk_iomput ) THEN

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

@@ -125 +125 @@
          !
          DO jn = 1, jptra
-            CALL lbc_lnk( trb(:,:,:,jn), 'T', 1._wp ) 
-            CALL lbc_lnk( trn(:,:,:,jn), 'T', 1._wp )
-            CALL lbc_lnk( tra(:,:,:,jn), 'T', 1._wp )
+            CALL lbc_lnk_multi( trb(:,:,:,jn), 'T', 1._wp, trn(:,:,:,jn), 'T', 1._wp, tra(:,:,:,jn), 'T', 1._wp )
          END DO
       ENDIF

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

@@ -433 +433 @@
          !-- Lateral boundary conditions
                IF ( cn_cfg .NE. 'gyre' ) THEN
-                  CALL lbc_lnk( ztmltot(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlres(:,:,jn) , 'T', 1. )
-                  CALL lbc_lnk( ztmlatf(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlrad(:,:,jn) , 'T', 1. )
+                  CALL lbc_lnk_multi( ztmltot(:,:,jn) , 'T', 1. , ztmlres(:,:,jn) , 'T', 1., &
+                     &                ztmlatf(:,:,jn) , 'T', 1. , ztmlrad(:,:,jn) , 'T', 1. )
                ENDIF
 
@@ -484 +484 @@
          !-- Lateral boundary conditions 
                IF ( cn_cfg .NE. 'gyre' ) THEN            ! other than GYRE configuration    
-                  CALL lbc_lnk( ztmltot2(:,:,jn), 'T', 1. )
-                  CALL lbc_lnk( ztmlres2(:,:,jn), 'T', 1. )
+                  CALL lbc_lnk_multi( ztmltot2(:,:,jn), 'T', 1., ztmlres2(:,:,jn), 'T', 1. )
                   DO jl = 1, jpltrd_trc
                      CALL lbc_lnk( ztmltrd2(:,:,jl,jn), 'T', 1. )       ! will be output in the NetCDF trends file