Changeset 12165 for NEMO/branches/2019/dev_ASINTER-01-05_merged/src/TOP/trcbdy.F90

Timestamp:

2019-12-11T09:27:27+01:00 (4 years ago)

Author:

davestorkey

Message:

2019/dev_ASINTER-01-05_merged: Update to r12072 of trunk.

File:

• NEMO/branches/2019/dev_ASINTER-01-05_merged/src/TOP/trcbdy.F90 (modified) (1 diff)

NEMO/branches/2019/dev_ASINTER-01-05_merged/src/TOP/trcbdy.F90

@@ -95 +95 @@
          END DO
          IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN   ! if need to send/recv in at least one direction
-            CALL lbc_lnk( 'bdytra', tsa, 'T',  1., kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 )
+            CALL lbc_lnk( 'trcbdy', tra, 'T',  1., kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 )
          END IF
          !