- Timestamp:
- 2010-09-10T14:49:11+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r2082 r2083 233 233 ztrdz(:,:,:) = ztrdz(:,:,:) + zwz(:,:,:) ! <<< Add to previously computed 234 234 235 CALL trd_tra( kt, cdtype, jn, jpt _trd_xad, ztrdx, pun, ptn(:,:,:,jn) )236 CALL trd_tra( kt, cdtype, jn, jpt _trd_yad, ztrdy, pvn, ptn(:,:,:,jn) )237 CALL trd_tra( kt, cdtype, jn, jpt _trd_zad, ztrdz, pwn, ptn(:,:,:,jn) )235 CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, ztrdx, pun, ptn(:,:,:,jn) ) 236 CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, ztrdy, pvn, ptn(:,:,:,jn) ) 237 CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, ztrdz, pwn, ptn(:,:,:,jn) ) 238 238 END IF 239 239 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes)
Note: See TracChangeset
for help on using the changeset viewer.