- 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/DOM/domzgr.F90
r9023 r9124 36 36 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 37 37 USE lib_mpp ! distributed memory computing library 38 USE timing ! Timing39 38 40 39 IMPLICIT NONE … … 75 74 REAL(wp) :: zrefdep ! depth of the reference level (~10m) 76 75 !!---------------------------------------------------------------------- 77 !78 IF( ln_timing ) CALL timing_start('dom_zgr')79 76 ! 80 77 IF(lwp) THEN ! Control print … … 162 159 & ' w ', MAXVAL( e3w_0(:,:,:) ) 163 160 ENDIF 164 !165 IF( ln_timing ) CALL timing_stop('dom_zgr')166 161 ! 167 162 END SUBROUTINE dom_zgr … … 285 280 REAL(wp), DIMENSION(jpi,jpj) :: zk ! workspace 286 281 !!---------------------------------------------------------------------- 287 !288 IF( ln_timing ) CALL timing_start('zgr_top_bot')289 282 ! 290 283 IF(lwp) WRITE(numout,*) … … 316 309 zk(:,:) = REAL( mbkv(:,:), wp ) ; CALL lbc_lnk( zk, 'V', 1. ) ; mbkv(:,:) = MAX( INT( zk(:,:) ), 1 ) 317 310 ! 318 IF( ln_timing ) CALL timing_stop('zgr_top_bot')319 !320 311 END SUBROUTINE zgr_top_bot 321 312
Note: See TracChangeset
for help on using the changeset viewer.