Changeset 9085

Timestamp:

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

Author:

cetlod

Message:

dev_merge_2017 : use of lbclnk_multi

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90 (modified) (1 diff)

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

@@ -345 +345 @@
 
       IF( lk_iomput ) THEN
-         DO jl = 1, 17 
-            CALL lbc_lnk( zw2d(:,:,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
-            ! Save diagnostics
+        CALL lbc_lnk( zw2d(:,:,:),'T', 1. )
+        CALL lbc_lnk_multi( zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. )
+        ! Save diagnostics
         CALL iom_put( "TNO3PHY", zw2d(:,:,1) )
         CALL iom_put( "TNH4PHY", zw2d(:,:,2) )