- 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/OPA_SRC/BDY/bdyvol.F90
r7646 r9124 19 19 USE in_out_manager ! I/O manager 20 20 USE lib_mpp ! for mppsum 21 USE timing ! Timing22 21 USE lib_fortran ! Fortran routines library 23 22 … … 73 72 TYPE(OBC_INDEX), POINTER :: idx 74 73 !!----------------------------------------------------------------------------- 75 !76 IF( nn_timing == 1 ) CALL timing_start('bdy_vol')77 74 ! 78 75 IF( ln_vol ) THEN … … 165 162 END IF 166 163 ! 167 IF( nn_timing == 1 ) CALL timing_stop('bdy_vol')168 !169 164 END IF ! ln_vol 170 165 !
Note: See TracChangeset
for help on using the changeset viewer.