- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r8542 r9124 20 20 USE oce_trc ! shared variables between ocean and passive tracers 21 21 USE trc ! passive tracers common variables 22 ! 22 23 USE iom ! I/O manager 23 24 USE lib_mpp ! MPP library … … 69 70 NAMELIST/namtrc_dta/ sn_trcdta, cn_dir, rn_trfac 70 71 !!---------------------------------------------------------------------- 71 !72 IF( nn_timing == 1 ) CALL timing_start('trc_dta_ini')73 72 ! 74 73 IF( lwp ) THEN … … 154 153 ! 155 154 DEALLOCATE( slf_i ) ! deallocate local field structure 156 IF( nn_timing == 1 ) CALL timing_stop('trc_dta_ini')157 155 ! 158 156 END SUBROUTINE trc_dta_ini … … 182 180 !!---------------------------------------------------------------------- 183 181 ! 184 IF( nn_timing == 1 )CALL timing_start('trc_dta')182 IF( ln_timing ) CALL timing_start('trc_dta') 185 183 ! 186 184 IF( nb_trcdta > 0 ) THEN … … 246 244 ENDIF 247 245 ! 248 IF( nn_timing == 1) CALL timing_stop('trc_dta')246 IF( ln_timing ) CALL timing_stop('trc_dta') 249 247 ! 250 248 END SUBROUTINE trc_dta
Note: See TracChangeset
for help on using the changeset viewer.