Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC
- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC
- Files:
-
- 2 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 -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r9019 r9124 130 130 ENDIF 131 131 ! 132 IF( nn_timing == 1) CALL timing_finalize132 IF( ln_timing ) CALL timing_finalize 133 133 ! 134 134 CALL nemo_closefile … … 380 380 isplt = nn_isplt 381 381 jsplt = nn_jsplt 382 !!gm to be remove at the end of the 2017 merge party383 if( ln_timing ) then ; nn_timing = 1384 else ; nn_timing = 0385 endif386 !!gm end387 388 382 389 383 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.