- 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/MY_TRC/trcsms_my_trc.F90
r7646 r9124 46 46 !!---------------------------------------------------------------------- 47 47 ! 48 IF( nn_timing == 1 )CALL timing_start('trc_sms_my_trc')48 IF( ln_timing ) CALL timing_start('trc_sms_my_trc') 49 49 ! 50 50 IF(lwp) WRITE(numout,*) … … 67 67 END IF 68 68 ! 69 IF( nn_timing == 1 )CALL timing_stop('trc_sms_my_trc')69 IF( ln_timing ) CALL timing_stop('trc_sms_my_trc') 70 70 ! 71 71 END SUBROUTINE trc_sms_my_trc 72 72 73 73 74 INTEGER FUNCTION trc_sms_my_trc_alloc()
Note: See TracChangeset
for help on using the changeset viewer.