Changeset 4904 for branches/2014/dev_CNRS_2014
- Timestamp:
- 2014-11-27T17:21:11+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r4903 r4904 329 329 IF( l_trdtra ) THEN ! qsr tracers trends saved for diagnostics 330 330 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 331 CALL trd_tra( kt, 'TRA', jp_tem, jptra_ trd_qsr, ztrdt )331 CALL trd_tra( kt, 'TRA', jp_tem, jptra_qsr, ztrdt ) 332 332 CALL wrk_dealloc( jpi, jpj, jpk, ztrdt ) 333 333 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.