Changeset 3659


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

Use ikum1 and ikvm1 in zpshde_tam - See ticket #1023

File:
1 edited

Legend:

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

    r3658 r3659  
    151151                     &       + zmaxu * ( pta(ji+1,jj,ikum1,jn) - pta(ji+1,jj,iku,jn) ) 
    152152                  ztitl(ji,jj,jn) = pta_tl(ji+1,jj,iku,jn)       & 
    153                      &         + zmaxu * ( pta_tl(ji+1,jj,iku-1,jn) - pta_tl(ji+1,jj,iku,jn) ) 
     153                     &         + zmaxu * ( pta_tl(ji+1,jj,ikum1,jn) - pta_tl(ji+1,jj,iku,jn) ) 
    154154                  ! gradient of T and S 
    155155                  pgtu_tl(ji,jj,jn) = umask(ji,jj,1) * ( ztitl(ji,jj,jn) - pta_tl(ji,jj,iku,jn) ) 
     
    170170                  zmaxv =  ze3wv / fse3w(ji,jj+1,ikv) 
    171171                  ztj(ji,jj,jn) = pta(ji,jj+1,ikv,jn)            & 
    172                      &       + zmaxv * ( pta(ji,jj+1,ikv-1,jn) - pta(ji,jj+1,ikv,jn) ) 
     172                     &       + zmaxv * ( pta(ji,jj+1,ikvm1,jn) - pta(ji,jj+1,ikv,jn) ) 
    173173                  ! interpolated values of tangent T and S 
    174174                  ztjtl(ji,jj,jn) = pta_tl(ji,jj+1,ikv,jn)       & 
    175                      &         + zmaxv * ( pta_tl(ji,jj+1,ikv-1,jn) - pta_tl(ji,jj+1,ikv,jn) ) 
     175                     &         + zmaxv * ( pta_tl(ji,jj+1,ikvm1,jn) - pta_tl(ji,jj+1,ikv,jn) ) 
    176176                  ! gradient of T and S 
    177177                  pgtv_tl(ji,jj,jn) = vmask(ji,jj,1) * ( ztjtl(ji,jj,jn) - pta_tl(ji,jj,ikv,jn) ) 
     
    180180                  ! interpolated values of T and S 
    181181                  ztj(ji,jj,jn) = pta(ji,jj,ikv,jn)       & 
    182                      &       + zmaxv * ( pta(ji,jj,ikv-1,jn) - pta(ji,jj,ikv,jn) ) 
     182                     &       + zmaxv * ( pta(ji,jj,ikvm1,jn) - pta(ji,jj,ikv,jn) ) 
    183183                  ! interpolated values of T and S 
    184184                  ztjtl(ji,jj,jn) = pta_tl(ji,jj,ikv,jn)  & 
    185                      &         + zmaxv * ( pta_tl(ji,jj,ikv-1,jn) - pta_tl(ji,jj,ikv,jn) ) 
     185                     &         + zmaxv * ( pta_tl(ji,jj,ikvm1,jn) - pta_tl(ji,jj,ikv,jn) ) 
    186186                  ! gradient of T and S 
    187187                  pgtv_tl(ji,jj,jn) = vmask(ji,jj,1) * ( pta_tl(ji,jj+1,ikv,jn) - ztjtl(ji,jj,jn) ) 
Note: See TracChangeset for help on using the changeset viewer.