- 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/OFF_SRC/dtadyn.F90
r9019 r9124 105 105 !! - interpolates data if needed 106 106 !!---------------------------------------------------------------------- 107 !108 107 USE oce, ONLY: zhdivtr => ua 109 108 INTEGER, INTENT(in) :: kt ! ocean time-step index 110 109 INTEGER :: ji, jj, jk 111 110 REAL(wp), POINTER, DIMENSION(:,:) :: zemp 112 ! 113 !!---------------------------------------------------------------------- 114 115 ! 116 IF( nn_timing == 1 ) CALL timing_start( 'dta_dyn') 111 !!---------------------------------------------------------------------- 112 ! 113 IF( ln_timing ) CALL timing_start( 'dta_dyn') 117 114 ! 118 115 nsecdyn = nsec_year + nsec1jan000 ! number of seconds between Jan. 1st 00h of nit000 year and the middle of time step … … 195 192 ENDIF 196 193 ! 197 IF( nn_timing == 1 )CALL timing_stop( 'dta_dyn')194 IF( ln_timing ) CALL timing_stop( 'dta_dyn') 198 195 ! 199 196 END SUBROUTINE dta_dyn
Note: See TracChangeset
for help on using the changeset viewer.