missing lbc_lnk in the routine traadv_qck.F90

[greffray]

After the loop 207-216, a lbclnk is required on zwx

CALL lbc_lnk( zwx(:,:,:), 'T', 1. ) ! Lateral boundary conditions

After the loop 330-339, a lbclnk is required on zwy

CALL lbc_lnk( zwy(:,:,:), 'T', 1. ) ! Lateral boundary conditions

Guillaume

[cbricaud]

resolved at rev 3300

===================================================================
--- traadv_qck.F90 (revision 3299)
+++ traadv_qck.F90 (working copy)
@@ -214,8 +214,12 @@

zwx(ji,jj,jk) = zwx(ji,jj,jk) * pun(ji,jj,jk)

END DO

END DO

• !
• ! Computation of the trend

+ END DO
+ !
+ CALL lbc_lnk( zwx(:,:,:), 'T', 1. ) ! Lateral boundary conditions
+ !
+ ! Computation of the trend
+ DO jk = 1, jpkm1

DO jj = 2, jpjm1

DO ji = fs_2, fs_jpim1 ! vector opt.

zbtr = 1. / ( e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,jk) )

@@ -225,7 +229,6 @@

pta(ji,jj,jk,jn) = pta(ji,jj,jk,jn) + ztra

END DO

END DO

• !

END DO
! ! trend diagnostics (contribution of upstream fluxes)
IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptn(:,:,:,jn) )

@@ -337,8 +340,12 @@

zwy(ji,jj,jk) = zwy(ji,jj,jk) * pvn(ji,jj,jk)

END DO

END DO

• !
• ! Computation of the trend

+ END DO
+ !
+ CALL lbc_lnk( zwy(:,:,:), 'T', 1. ) ! Lateral boundary conditions
+ !
+ ! Computation of the trend
+ DO jk = 1, jpkm1

DO jj = 2, jpjm1

DO ji = fs_2, fs_jpim1 ! vector opt.

zbtr = 1. / ( e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,jk) )

@@ -348,7 +355,6 @@

pta(ji,jj,jk,jn) = pta(ji,jj,jk,jn) + ztra

END DO

END DO

• !

END DO