- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90
r9019 r9124 22 22 ! 23 23 USE iom ! I/O library 24 USE in_out_manager ! I/O manager 24 25 USE lib_mpp ! massively parallel library 25 26 USE lbclnk ! ocean lateral boundary condition (or mpp link) 26 USE in_out_manager ! I/O manager27 USE timing ! Timing28 27 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 29 28 … … 102 101 !!---------------------------------------------------------------------- 103 102 ! 104 IF( ln_timing ) CALL timing_start('tra_adv_ubs')105 !106 103 IF( kt == kit000 ) THEN 107 104 IF(lwp) WRITE(numout,*) … … 281 278 END DO 282 279 ! 283 IF( ln_timing ) CALL timing_stop('tra_adv_ubs')284 !285 280 END SUBROUTINE tra_adv_ubs 286 281 … … 310 305 !!---------------------------------------------------------------------- 311 306 ! 312 IF( ln_timing ) CALL timing_start('nonosc_z')313 !314 307 zbig = 1.e+40_wp 315 308 zrtrn = 1.e-15_wp … … 379 372 END DO 380 373 ! 381 IF( ln_timing ) CALL timing_stop('nonosc_z')382 !383 374 END SUBROUTINE nonosc_z 384 375
Note: See TracChangeset
for help on using the changeset viewer.