- Timestamp:
- 2018-04-25T10:24:20+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90
r9163 r9502 19 19 USE trdmxl_trc ! Mixed layer trends diag. 20 20 USE iom ! I/O library 21 USE lbclnk, ONLY: lbc_lnk 21 22 # if defined key_debug_medusa 22 23 USE trcstat, ONLY: trc_rst_dia_stat … … 192 193 CALL trc_rst_dia_stat( ptrtrd(:,:,1), cltra) 193 194 # endif 195 CALL lbc_lnk( ptrtrd(:,:,:), 'T', 1.0 ) 194 196 CALL iom_put( cltra, ptrtrd(:,:,:) ) 195 197 # if defined key_debug_medusa
Note: See TracChangeset
for help on using the changeset viewer.