Changeset 3660
- Timestamp:
- 2012-11-26T14:30:32+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/zpshde_tam.F90
r3659 r3660 505 505 pta_ad(ji,jj+1,ikv,jn) = pta_ad(ji,jj+1,ikv,jn) & 506 506 & + 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) & 508 508 & + ztjad(ji,jj,jn)* zmaxv 509 509 ztjad(ji,jj,jn) = 0.0_wp … … 520 520 pta_ad(ji,jj,ikv,jn) = pta_ad(ji,jj,ikv,jn) & 521 521 & + 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) & 523 523 & + ztjad(ji,jj,jn) * zmaxv 524 524 ztjad(ji,jj,jn) = 0.0_wp … … 536 536 pta_ad(ji+1,jj,iku,jn) = pta_ad(ji+1,jj,iku,jn) & 537 537 & + 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) & 539 539 & + ztiad(ji,jj,jn) * zmaxu 540 540 ztiad(ji,jj,jn) = 0.0_wp … … 550 550 pta_ad(ji,jj,iku,jn) = pta_ad(ji,jj,iku,jn) & 551 551 & + 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) & 553 553 & + ztiad(ji,jj,jn) * zmaxu 554 554 ztiad(ji,jj,jn) = 0.0_wp
Note: See TracChangeset
for help on using the changeset viewer.