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 4429 for branches/2011 – NEMO

Changeset 4429 for branches/2011


Ignore:
Timestamp:
2014-02-04T13:14:13+01:00 (10 years ago)
Author:
trackstand2
Message:

Fixed missing -1 on a z-loop limit

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90

    r4428 r4429  
    204204            DO jj = 2, jpjm1 
    205205               DO ji = 2, jpim1 
    206                   DO jk = 1, mbkmax(ji,jj) ! jpkm1 
     206                  DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 
    207207                     ! after scale factor at T-point 
    208208                     ze3ta =  ( 1. - r_vvl ) +        r_vvl   * fse3t_a(ji,jj,jk)  
Note: See TracChangeset for help on using the changeset viewer.