Changeset 9090 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

Timestamp:

2017-12-15T18:12:43+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/DOM/iscplrst.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

@@ -175 +175 @@
             END DO
          END DO
-         CALL lbc_lnk( sshn   , 'T', 1._wp )
-         CALL lbc_lnk( zsmask1, 'T', 1._wp )
+         CALL lbc_lnk_multi( sshn, 'T', 1., zsmask1, 'T', 1. )
          zssh0   = sshn
          zsmask0 = zsmask1
@@ -345 +344 @@
           END DO
           
-          CALL lbc_lnk(tsn(:,:,:,1),'T',1._wp)
-          CALL lbc_lnk(tsn(:,:,:,2),'T',1._wp)
-          CALL lbc_lnk(ztmask1,     'T',1._wp)
+          CALL lbc_lnk_multi( tsn(:,:,:,jp_tem), 'T', 1., tsn(:,:,:,jp_sal), 'T', 1., ztmask1, 'T', 1.)
 
           ! update