Changeset 14172

Timestamp:

2020-12-15T13:39:13+01:00 (3 years ago)

Author:

cetlod

Message:

Minor correction in the use of lbc within trcatf routine

File:

• NEMO/trunk/src/TOP/TRP/trcatf.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/TRP/trcatf.F90

@@ -103 +103 @@
 #endif
       ! Update after tracer on domain lateral boundaries
-      CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1. )   
+      CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1._wp )   
 
       IF( ln_bdy )  CALL trc_bdy( kt, Kbb, Kmm, Kaa )
@@ -169 +169 @@
          ENDIF
          !
-         CALL lbc_lnk_multi( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp )
+         CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp )
       ENDIF
       !