- Timestamp:
- 2017-09-27T16:29:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r7753 r8568 36 36 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 37 37 USE lib_mpp ! distributed memory computing library 38 USE wrk_nemo ! Memory allocation39 38 USE timing ! Timing 40 39 … … 77 76 !!---------------------------------------------------------------------- 78 77 ! 79 IF( nn_timing == 1) CALL timing_start('dom_zgr')78 IF( ln_timing ) CALL timing_start('dom_zgr') 80 79 ! 81 80 IF(lwp) THEN ! Control print … … 164 163 ENDIF 165 164 ! 166 IF( nn_timing == 1 )CALL timing_stop('dom_zgr')165 IF( ln_timing ) CALL timing_stop('dom_zgr') 167 166 ! 168 167 END SUBROUTINE dom_zgr … … 284 283 ! 285 284 INTEGER :: ji, jj ! dummy loop indices 286 REAL(wp), POINTER, DIMENSION(:,:) :: zk 287 !!---------------------------------------------------------------------- 288 ! 289 IF( nn_timing == 1 ) CALL timing_start('zgr_top_bot') 290 ! 291 CALL wrk_alloc( jpi,jpj, zk ) 285 REAL(wp), DIMENSION(jpi,jpj) :: zk ! workspace 286 !!---------------------------------------------------------------------- 287 ! 288 IF( ln_timing ) CALL timing_start('zgr_top_bot') 292 289 ! 293 290 IF(lwp) WRITE(numout,*) … … 319 316 zk(:,:) = REAL( mbkv(:,:), wp ) ; CALL lbc_lnk( zk, 'V', 1. ) ; mbkv(:,:) = MAX( INT( zk(:,:) ), 1 ) 320 317 ! 321 CALL wrk_dealloc( jpi,jpj, zk ) 322 ! 323 IF( nn_timing == 1 ) CALL timing_stop('zgr_top_bot') 318 IF( ln_timing ) CALL timing_stop('zgr_top_bot') 324 319 ! 325 320 END SUBROUTINE zgr_top_bot
Note: See TracChangeset
for help on using the changeset viewer.