- 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/DYN/dynadv_ubs.F90
r9090 r9124 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 24 USE lib_mpp ! MPP library 25 USE timing ! Timing26 25 27 26 IMPLICIT NONE … … 79 78 !!---------------------------------------------------------------------- 80 79 ! 81 IF( ln_timing ) CALL timing_start('dyn_adv_ubs')82 !83 80 IF( kt == nit000 ) THEN 84 81 IF(lwp) WRITE(numout,*) … … 238 235 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 239 236 ! 240 IF( ln_timing ) CALL timing_stop('dyn_adv_ubs')241 !242 237 END SUBROUTINE dyn_adv_ubs 243 238
Note: See TracChangeset
for help on using the changeset viewer.