Opened 9 years ago

Closed 9 years ago

#923 closed Bug (fixed)

missing lbc_lnk in the routine traadv_qck.F90

Reported by: greffray Owned by: cbricaud
Priority: low Milestone:
Component: OCE Version: release-3.4
Severity: Keywords:
Cc:

Description

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

Commit History (0)

(No commits)

Change History (1)

comment:1 Changed 9 years ago by cbricaud

  • Resolution set to fixed
  • Status changed from new to closed

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

Note: See TracTickets for help on using tickets.