- 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/TRP/trcsbc.F90
r9019 r9124 68 68 !!--------------------------------------------------------------------- 69 69 ! 70 IF( nn_timing == 1 )CALL timing_start('trc_sbc')70 IF( ln_timing ) CALL timing_start('trc_sbc') 71 71 ! 72 72 ! Allocate temporary workspace … … 182 182 IF( l_trdtrc ) CALL wrk_dealloc( jpi,jpj,jpk, ztrtrd ) 183 183 ! 184 IF( nn_timing == 1 )CALL timing_stop('trc_sbc')184 IF( ln_timing ) CALL timing_stop('trc_sbc') 185 185 ! 186 186 END SUBROUTINE trc_sbc
Note: See TracChangeset
for help on using the changeset viewer.