Changeset 12088 for NEMO/branches/UKMO/NEMO_4.0.1_GO8_package/src/TOP/trcbdy.F90

Timestamp:

2019-12-06T14:13:14+01:00 (4 years ago)

Author:

deazer

Message:

Updating GO8 Package branch to bring in required BDY bug fixes frouse with CO8
The mirror branch is already updated to have this change, where we merge in the mirror to the package branch

File:

• NEMO/branches/UKMO/NEMO_4.0.1_GO8_package/src/TOP/trcbdy.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_GO8_package/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
          !