# Changeset 3659

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

Use ikum1 and ikvm1 in zpshde_tam - See ticket #1023

File:
1 edited

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

 r3658 &       + zmaxu * ( pta(ji+1,jj,ikum1,jn) - pta(ji+1,jj,iku,jn) ) ztitl(ji,jj,jn) = pta_tl(ji+1,jj,iku,jn)       & &         + zmaxu * ( pta_tl(ji+1,jj,iku-1,jn) - pta_tl(ji+1,jj,iku,jn) ) &         + zmaxu * ( pta_tl(ji+1,jj,ikum1,jn) - pta_tl(ji+1,jj,iku,jn) ) ! gradient of T and S pgtu_tl(ji,jj,jn) = umask(ji,jj,1) * ( ztitl(ji,jj,jn) - pta_tl(ji,jj,iku,jn) ) zmaxv =  ze3wv / fse3w(ji,jj+1,ikv) ztj(ji,jj,jn) = pta(ji,jj+1,ikv,jn)            & &       + zmaxv * ( pta(ji,jj+1,ikv-1,jn) - pta(ji,jj+1,ikv,jn) ) &       + zmaxv * ( pta(ji,jj+1,ikvm1,jn) - pta(ji,jj+1,ikv,jn) ) ! interpolated values of tangent T and S ztjtl(ji,jj,jn) = pta_tl(ji,jj+1,ikv,jn)       & &         + zmaxv * ( pta_tl(ji,jj+1,ikv-1,jn) - pta_tl(ji,jj+1,ikv,jn) ) &         + zmaxv * ( pta_tl(ji,jj+1,ikvm1,jn) - pta_tl(ji,jj+1,ikv,jn) ) ! gradient of T and S pgtv_tl(ji,jj,jn) = vmask(ji,jj,1) * ( ztjtl(ji,jj,jn) - pta_tl(ji,jj,ikv,jn) ) ! interpolated values of T and S ztj(ji,jj,jn) = pta(ji,jj,ikv,jn)       & &       + zmaxv * ( pta(ji,jj,ikv-1,jn) - pta(ji,jj,ikv,jn) ) &       + zmaxv * ( pta(ji,jj,ikvm1,jn) - pta(ji,jj,ikv,jn) ) ! interpolated values of T and S ztjtl(ji,jj,jn) = pta_tl(ji,jj,ikv,jn)  & &         + zmaxv * ( pta_tl(ji,jj,ikv-1,jn) - pta_tl(ji,jj,ikv,jn) ) &         + zmaxv * ( pta_tl(ji,jj,ikvm1,jn) - pta_tl(ji,jj,ikv,jn) ) ! gradient of T and S 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.