- 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_qck.F90
r2082 r2083 229 229 END DO 230 230 ! ! trend diagnostics (contribution of upstream fluxes) 231 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jpt _trd_xad, zwx, pun, ptn(:,:,:,jn) )231 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptn(:,:,:,jn) ) 232 232 ! 233 233 END DO … … 349 349 END DO 350 350 ! ! trend diagnostics (contribution of upstream fluxes) 351 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jpt _trd_yad, zwy, pvn, ptn(:,:,:,jn) )351 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptn(:,:,:,jn) ) 352 352 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes) 353 353 IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nf_ptr ) == 0 ) ) THEN … … 410 410 END DO 411 411 ! ! Save the vertical advective trends for diagnostic 412 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jpt _trd_zad, zwz, pwn, ptn(:,:,:,jn) )412 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zwz, pwn, ptn(:,:,:,jn) ) 413 413 ! 414 414 END DO
Note: See TracChangeset
for help on using the changeset viewer.