New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3562 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90 – NEMO

Ignore:
Timestamp:
2012-11-15T17:17:48+01:00 (12 years ago)
Author:
rblod
Message:

Fix vvl and flux formulae, see ticket #952

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r3294 r3562  
    248248               DO jk = 1, jpkm1                       ! Leap-Frog - Asselin filter and swap:  
    249249                  DO jj = 1, jpj                      !                   applied on thickness weighted velocity 
    250                      DO ji = 1, jpim1                 !                              --------------------------- 
     250                     DO ji = 1, jpi                   !                              --------------------------- 
    251251                        zue3a = ua(ji,jj,jk) * fse3u_a(ji,jj,jk) 
    252252                        zve3a = va(ji,jj,jk) * fse3v_a(ji,jj,jk) 
     
    268268               fse3u_b(:,:,1:jpkm1) = ze3u_f(:,:,1:jpkm1)      ! e3u_b <-- filtered scale factor 
    269269               fse3v_b(:,:,1:jpkm1) = ze3v_f(:,:,1:jpkm1) 
    270                CALL lbc_lnk( ub, 'U', -1. )                    ! lateral boundary conditions 
    271                CALL lbc_lnk( vb, 'V', -1. ) 
    272270            ENDIF 
    273271            ! 
Note: See TracChangeset for help on using the changeset viewer.