- 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/dynldf_iso.F90
r9090 r9124 28 28 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 29 29 USE prtctl ! Print control 30 USE timing ! Timing31 30 32 31 IMPLICIT NONE … … 114 113 !!---------------------------------------------------------------------- 115 114 ! 116 IF( ln_timing ) CALL timing_start('dyn_ldf_iso')117 !118 115 IF( kt == nit000 ) THEN 119 116 IF(lwp) WRITE(numout,*) … … 399 396 END DO ! End of slab 400 397 ! ! =============== 401 !402 IF( ln_timing ) CALL timing_stop('dyn_ldf_iso')403 !404 398 END SUBROUTINE dyn_ldf_iso 405 399
Note: See TracChangeset
for help on using the changeset viewer.