- 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_muscl.F90
r2082 r2083 175 175 ! ! trend diagnostics (contribution of upstream fluxes) 176 176 IF( l_trd ) THEN 177 CALL trd_tra( kt, cdtype, jn, jpt _trd_xad, zwx, pun, ptb(:,:,:,jn) )178 CALL trd_tra( kt, cdtype, jn, jpt _trd_yad, zwy, pvn, ptb(:,:,:,jn) )177 CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptb(:,:,:,jn) ) 178 CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptb(:,:,:,jn) ) 179 179 END IF 180 180 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes) … … 255 255 END DO 256 256 ! ! Save the vertical advective trends for diagnostic 257 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jpt _trd_zad, zwx, pwn, ptb(:,:,:,jn) )257 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zwx, pwn, ptb(:,:,:,jn) ) 258 258 ! 259 259 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.