- 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_muscl2.F90
r2082 r2083 199 199 ! ! trend diagnostics (contribution of upstream fluxes) 200 200 IF( l_trd ) THEN 201 CALL trd_tra( kt, cdtype, jn, jpt _trd_xad, zwx, pun, ptb(:,:,:,jn) )202 CALL trd_tra( kt, cdtype, jn, jpt _trd_yad, zwy, pvn, ptb(:,:,:,jn) )201 CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptb(:,:,:,jn) ) 202 CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptb(:,:,:,jn) ) 203 203 END IF 204 204 … … 295 295 ! ------------------------------------------------- 296 296 ! ! trend diagnostics (contribution of upstream fluxes) 297 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jpt _trd_zad, zwx, pwn, ptb(:,:,:,jn) )297 IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zwx, pwn, ptb(:,:,:,jn) ) 298 298 ! 299 299 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.