- 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_ubs.F90
r2082 r2083 187 187 ! ! trend diagnostics (contribution of upstream fluxes) 188 188 IF( l_trd ) THEN 189 CALL trd_tra( kt, cdtype, jn, jpt _trd_xad, zwx, pun, ptn(:,:,:,jn) )190 CALL trd_tra( kt, cdtype, jn, jpt _trd_yad, zwy, pvn, ptn(:,:,:,jn) )189 CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptn(:,:,:,jn) ) 190 CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptn(:,:,:,jn) ) 191 191 END IF 192 192 ! ! "Poleward" heat and salt transports (contribution of upstream fluxes) … … 279 279 END DO 280 280 END DO 281 CALL trd_tra( kt, cdtype, jn, jpt _trd_zad, zltv )281 CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zltv ) 282 282 ENDIF 283 283 !
Note: See TracChangeset
for help on using the changeset viewer.