Changeset 4429


Ignore:
Timestamp:
2014-02-04T13:14:13+01:00 (7 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.