- 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/bdydyn.F90
r7646 r9124 17 17 !!---------------------------------------------------------------------- 18 18 USE wrk_nemo ! Memory Allocation 19 USE timing ! Timing20 19 USE oce ! ocean dynamics and tracers 21 20 USE dom_oce ! ocean space and time domain … … 53 52 REAL(wp), POINTER, DIMENSION(:,:) :: pua2d, pva2d ! after barotropic velocities 54 53 !!---------------------------------------------------------------------- 55 !56 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn')57 54 ! 58 55 ll_dyn2d = .true. … … 129 126 CALL wrk_dealloc( jpi,jpj, pua2d, pva2d ) 130 127 ! 131 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn')132 !133 128 END SUBROUTINE bdy_dyn 134 129
Note: See TracChangeset
for help on using the changeset viewer.