- 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/TRA/trabbl.F90
r9099 r9124 42 42 43 43 PUBLIC tra_bbl ! routine called by step.F90 44 PUBLIC tra_bbl_init ! routine called by opa.F9044 PUBLIC tra_bbl_init ! routine called by nemogcm.F90 45 45 PUBLIC tra_bbl_dif ! routine called by trcbbl.F90 46 PUBLIC tra_bbl_adv ! - - --46 PUBLIC tra_bbl_adv ! - - - 47 47 PUBLIC bbl ! routine called by trcbbl.F90 and dtadyn.F90 48 48 … … 185 185 REAL(wp), DIMENSION(jpi,jpj) :: zptb ! workspace 186 186 !!---------------------------------------------------------------------- 187 !188 IF( ln_timing ) CALL timing_start('tra_bbl_dif')189 187 ! 190 188 DO jn = 1, kjpt ! tracer loop … … 211 209 END DO ! end tracer 212 210 ! ! =========== 213 !214 IF( ln_timing ) CALL timing_stop('tra_bbl_dif')215 !216 211 END SUBROUTINE tra_bbl_dif 217 212 … … 243 238 !!---------------------------------------------------------------------- 244 239 ! 245 IF( ln_timing ) CALL timing_start( 'tra_bbl_adv')246 240 ! ! =========== 247 241 DO jn = 1, kjpt ! tracer loop … … 298 292 END DO ! end tracer 299 293 ! ! =========== 300 !301 IF( ln_timing ) CALL timing_stop( 'tra_bbl_adv')302 !303 294 END SUBROUTINE tra_bbl_adv 304 295 … … 343 334 REAL(wp), DIMENSION(jpi,jpj) :: zub, zvb, zdep ! 2D workspace 344 335 !!---------------------------------------------------------------------- 345 !346 IF( ln_timing ) CALL timing_start( 'bbl')347 336 ! 348 337 IF( kt == kit000 ) THEN … … 475 464 ENDIF 476 465 ! 477 IF( ln_timing ) CALL timing_stop( 'bbl')478 !479 466 END SUBROUTINE bbl 480 467 … … 495 482 NAMELIST/nambbl/ ln_trabbl, nn_bbl_ldf, nn_bbl_adv, rn_ahtbbl, rn_gambbl 496 483 !!---------------------------------------------------------------------- 497 !498 IF( ln_timing ) CALL timing_start( 'tra_bbl_init')499 484 ! 500 485 REWIND( numnam_ref ) ! Namelist nambbl in reference namelist : Bottom boundary layer scheme … … 569 554 ahv_bbl_0(:,:) = rn_ahtbbl * e1_e2v(:,:) * e3v_bbl_0(:,:) * vmask(:,:,1) 570 555 ! 571 IF( ln_timing ) CALL timing_stop( 'tra_bbl_init')572 !573 556 END SUBROUTINE tra_bbl_init 574 557
Note: See TracChangeset
for help on using the changeset viewer.