Changeset 3300


Ignore:
Timestamp:
2012-02-08T10:54:42+01:00 (9 years ago)
Author:
cbricaud
Message:

fix bug for ticket 923

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r3299 r3300  
    215215               END DO 
    216216            END DO 
    217             ! 
    218             ! Computation of the trend 
     217         END DO 
     218         ! 
     219         CALL lbc_lnk( zwx(:,:,:), 'T', 1. ) ! Lateral boundary conditions 
     220         ! 
     221         ! Computation of the trend 
     222         DO jk = 1, jpkm1   
    219223            DO jj = 2, jpjm1 
    220224               DO ji = fs_2, fs_jpim1   ! vector opt.   
     
    226230               END DO 
    227231            END DO 
    228             ! 
    229232         END DO 
    230233         !                                 ! trend diagnostics (contribution of upstream fluxes) 
     
    338341               END DO 
    339342            END DO 
    340             ! 
    341             ! Computation of the trend 
     343         END DO 
     344         ! 
     345         CALL lbc_lnk( zwy(:,:,:), 'T', 1. ) ! Lateral boundary conditions 
     346         ! 
     347         ! Computation of the trend 
     348         DO jk = 1, jpkm1   
    342349            DO jj = 2, jpjm1 
    343350               DO ji = fs_2, fs_jpim1   ! vector opt.   
     
    349356               END DO 
    350357            END DO 
    351             ! 
    352358         END DO 
    353359         !                                 ! trend diagnostics (contribution of upstream fluxes) 
Note: See TracChangeset for help on using the changeset viewer.