- 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/bdylib.F90
r7646 r9124 18 18 USE in_out_manager ! 19 19 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 20 USE timing ! Timing21 20 22 21 IMPLICIT NONE … … 51 50 !!---------------------------------------------------------------------- 52 51 ! 53 IF( nn_timing == 1 ) CALL timing_start('bdy_frs')54 !55 52 igrd = 1 ! Everything is at T-points here 56 53 DO ib = 1, idx%nblen(igrd) … … 63 60 END DO 64 61 ! 65 IF( nn_timing == 1 ) CALL timing_stop('bdy_frs')66 !67 62 END SUBROUTINE bdy_frs 63 68 64 69 65 SUBROUTINE bdy_spe( idx, pta, dta ) … … 82 78 INTEGER :: ii, ij ! 2D addresses 83 79 !!---------------------------------------------------------------------- 84 !85 IF( nn_timing == 1 ) CALL timing_start('bdy_spe')86 80 ! 87 81 igrd = 1 ! Everything is at T-points here … … 94 88 END DO 95 89 ! 96 IF( nn_timing == 1 ) CALL timing_stop('bdy_spe')97 !98 90 END SUBROUTINE bdy_spe 91 99 92 100 93 SUBROUTINE bdy_orl( idx, ptb, pta, dta, ll_npo ) … … 115 108 !!---------------------------------------------------------------------- 116 109 ! 117 IF( nn_timing == 1 ) CALL timing_start('bdy_orl')118 !119 110 igrd = 1 ! Everything is at T-points here 120 111 ! 121 112 CALL bdy_orlanski_3d( idx, igrd, ptb(:,:,:), pta(:,:,:), dta, ll_npo ) 122 113 ! 123 IF( nn_timing == 1 ) CALL timing_stop('bdy_orl')124 !125 114 END SUBROUTINE bdy_orl 115 126 116 127 117 SUBROUTINE bdy_orlanski_2d( idx, igrd, phib, phia, phi_ext, ll_npo ) … … 161 151 REAL(wp), POINTER, DIMENSION(:,:) :: pe_ydif ! scale factors for y-derivatives 162 152 !!---------------------------------------------------------------------- 163 !164 IF( nn_timing == 1 ) CALL timing_start('bdy_orlanski_2d')165 153 ! 166 154 ! ----------------------------------! … … 279 267 END DO 280 268 ! 281 IF( nn_timing == 1 ) CALL timing_stop('bdy_orlanski_2d')282 !283 269 END SUBROUTINE bdy_orlanski_2d 284 270 … … 320 306 REAL(wp), POINTER, DIMENSION(:,:) :: pe_ydif ! scale factors for y-derivatives 321 307 !!---------------------------------------------------------------------- 322 !323 IF( nn_timing == 1 ) CALL timing_start('bdy_orlanski_3d')324 308 ! 325 309 ! ----------------------------------! … … 441 425 END DO 442 426 ! 443 IF( nn_timing == 1 ) CALL timing_stop('bdy_orlanski_3d')444 !445 427 END SUBROUTINE bdy_orlanski_3d 446 428 … … 462 444 INTEGER :: ii, ij, ip, jp ! 2D addresses 463 445 !!---------------------------------------------------------------------- 464 !!465 IF( nn_timing == 1 ) CALL timing_start('bdy_nmn')466 446 ! 467 447 SELECT CASE(igrd) … … 514 494 END DO 515 495 ! 516 IF( nn_timing == 1 ) CALL timing_stop('bdy_nmn')517 !518 496 END SUBROUTINE bdy_nmn 519 497
Note: See TracChangeset
for help on using the changeset viewer.