Changeset 4593
- Timestamp:
- 2014-03-26T11:44:08+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90
r4568 r4593 452 452 ze3tb = 1._wp 453 453 ze3tn = 1._wp 454 zrhsad = zrhsad +pta_ad(ji,jj,jk,jn)454 zrhsad = pta_ad(ji,jj,jk,jn) 455 455 pta_ad(ji,jj,jk-1,jn) = pta_ad(ji,jj,jk-1,jn) - zwi(ji,jj,jk) / zwt(ji,jj,jk-1) * pta_ad(ji,jj,jk,jn) 456 456 pta_ad(ji,jj,jk,jn) = 0.0_wp 457 457 ptb_ad(ji,jj,jk,jn) = ptb_ad(ji,jj,jk,jn) + ze3tb * zrhsad 458 458 pta_ad(ji,jj,jk,jn) = pta_ad(ji,jj,jk,jn) + p2dt(jk) * ze3tn * zrhsad 459 zrhsad = 0.0_wp460 459 END DO 461 460 END DO
Note: See TracChangeset
for help on using the changeset viewer.