Changeset 9098 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2017-12-15T18:38:45+01:00 (6 years ago)

Author:

flavoni

Message:

change lbc_lnk in lbc_lnk_multi

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (8 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -1170 +1170 @@
                   END DO
                END DO
-               CALL lbc_lnk( frcv(jpr_otx1)%z3(:,:,1), 'U',  -1. )   ;   CALL lbc_lnk( frcv(jpr_oty1)%z3(:,:,1), 'V',  -1. )
+               CALL lbc_lnk_multi( frcv(jpr_otx1)%z3(:,:,1), 'U',  -1., frcv(jpr_oty1)%z3(:,:,1), 'V',  -1. )
             ENDIF
             llnewtx = .TRUE.
@@ -1589 +1589 @@
             END SELECT
             IF( srcv(jpr_itx1)%clgrid /= 'I' ) THEN 
-               CALL lbc_lnk( p_taui, 'I',  -1. )   ;   CALL lbc_lnk( p_tauj, 'I',  -1. )
+               CALL lbc_lnk_multi( p_taui, 'I',  -1., p_tauj, 'I',  -1. )
             ENDIF
             !
@@ -1622 +1622 @@
             END SELECT
             IF( srcv(jpr_itx1)%clgrid /= 'F' ) THEN 
-               CALL lbc_lnk( p_taui, 'F',  -1. )   ;   CALL lbc_lnk( p_tauj, 'F',  -1. )
+               CALL lbc_lnk_multi( p_taui, 'F',  -1., p_tauj, 'F',  -1. )
             ENDIF
             !
@@ -1653 +1653 @@
             END SELECT
             IF( srcv(jpr_itx1)%clgrid /= 'U' ) THEN 
-               CALL lbc_lnk( p_taui, 'U',  -1. )   ;   CALL lbc_lnk( p_tauj, 'V',  -1. )
+               CALL lbc_lnk_multi( p_taui, 'U',  -1., p_tauj, 'V',  -1. )
             ENDIF
          END SELECT
@@ -2443 +2443 @@
                   END DO
                END SELECT
-               CALL lbc_lnk( zitx1, 'T', -1. )   ;   CALL lbc_lnk( zity1, 'T', -1. )
+               CALL lbc_lnk_multi( zitx1, 'T', -1., zity1, 'T', -1. )
             CASE( 'mixed oce-ice'        )
                SELECT CASE ( cp_ice_msh )
@@ -2479 +2479 @@
                END SELECT
             END SELECT
-            CALL lbc_lnk( zotx1, ssnd(jps_ocx1)%clgrid, -1. )   ;   CALL lbc_lnk( zoty1, ssnd(jps_ocy1)%clgrid, -1. )
+            CALL lbc_lnk_multi( zotx1, ssnd(jps_ocx1)%clgrid, -1.,  zoty1, ssnd(jps_ocy1)%clgrid, -1. )
             !
          ENDIF
@@ -2576 +2576 @@
                 END DO 
              END SELECT 
-             CALL lbc_lnk( zitx1, 'T', -1. )   ;   CALL lbc_lnk( zity1, 'T', -1. ) 
+             CALL lbc_lnk_multi( zitx1, 'T', -1.,  zity1, 'T', -1. ) 
           CASE( 'mixed oce-ice'        ) 
              SELECT CASE ( cp_ice_msh ) 
@@ -2612 +2612 @@
              END SELECT 
           END SELECT 
-         CALL lbc_lnk( zotx1, ssnd(jps_ocxw)%clgrid, -1. )   ;   CALL lbc_lnk( zoty1, ssnd(jps_ocyw)%clgrid, -1. ) 
+         CALL lbc_lnk_multi( zotx1, ssnd(jps_ocxw)%clgrid, -1., zoty1, ssnd(jps_ocyw)%clgrid, -1. ) 
          ! 
          !