Changeset 3300 for trunk/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2012-02-08T10:54:42+01:00 (12 years ago)

Author:

cbricaud

Message:

fix bug for ticket 923

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

@@ -215 +215 @@
                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.  
@@ -226 +230 @@
                END DO
             END DO
-            !
          END DO
          !                                 ! trend diagnostics (contribution of upstream fluxes)
@@ -338 +341 @@
                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.  
@@ -349 +356 @@
                END DO
             END DO
-            !
          END DO
          !                                 ! trend diagnostics (contribution of upstream fluxes)