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 3660 for branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/zpshde_tam.F90 – NEMO

Ignore:
Timestamp:
2012-11-26T14:30:32+01:00 (11 years ago)
Author:
pabouttier
Message:

Use ikum1 and ikvm1 in zpshde_tam - part 2 - See ticket #1023

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/zpshde_tam.F90

    r3659 r3660  
    505505                  pta_ad(ji,jj+1,ikv,jn)   = pta_ad(ji,jj+1,ikv,jn)        & 
    506506                     &                   + ztjad(ji,jj,jn) * (1 - zmaxv) 
    507                   pta_ad(ji,jj+1,ikv-1,jn) = pta_ad(ji,jj+1,ikv-1,jn)      & 
     507                  pta_ad(ji,jj+1,ikvm1,jn) = pta_ad(ji,jj+1,ikvm1,jn)      & 
    508508                     &                   + ztjad(ji,jj,jn)* zmaxv 
    509509                  ztjad(ji,jj,jn)           = 0.0_wp 
     
    520520                  pta_ad(ji,jj,ikv,jn)     = pta_ad(ji,jj,ikv,jn)          & 
    521521                     &                   + ztjad(ji,jj,jn) * (1 - zmaxv) 
    522                   pta_ad(ji,jj,ikv-1,jn)   = pta_ad(ji,jj,ikv-1,jn)        & 
     522                  pta_ad(ji,jj,ikvm1,jn)   = pta_ad(ji,jj,ikvm1,jn)        & 
    523523                     &                   + ztjad(ji,jj,jn) * zmaxv 
    524524                  ztjad(ji,jj,jn)           = 0.0_wp 
     
    536536                  pta_ad(ji+1,jj,iku,jn)   = pta_ad(ji+1,jj,iku,jn)        & 
    537537                     &                   + ztiad(ji,jj,jn) * (1 - zmaxu) 
    538                   pta_ad(ji+1,jj,iku-1,jn) = pta_ad(ji+1,jj,iku-1,jn)      & 
     538                  pta_ad(ji+1,jj,ikum1,jn) = pta_ad(ji+1,jj,ikum1,jn)      & 
    539539                     &                   + ztiad(ji,jj,jn) * zmaxu 
    540540                  ztiad(ji,jj,jn)           = 0.0_wp 
     
    550550                  pta_ad(ji,jj,iku,jn)     = pta_ad(ji,jj,iku,jn)          & 
    551551                     &                   + ztiad(ji,jj,jn) * (1 - zmaxu) 
    552                   pta_ad(ji,jj,iku-1,jn)   = pta_ad(ji,jj,iku-1,jn)        & 
     552                  pta_ad(ji,jj,ikum1,jn)   = pta_ad(ji,jj,ikum1,jn)        & 
    553553                     &                   + ztiad(ji,jj,jn) * zmaxu 
    554554                  ztiad(ji,jj,jn)           = 0.0_wp 
Note: See TracChangeset for help on using the changeset viewer.