- 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/traadv_qck.F90
r9094 r9124 22 22 USE diaptr ! poleward transport diagnostics 23 23 ! 24 USE in_out_manager ! I/O manager 24 25 USE lib_mpp ! distribued memory computing 25 26 USE lbclnk ! ocean lateral boundary condition (or mpp link) 26 USE in_out_manager ! I/O manager27 USE timing ! Timing28 27 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 29 28 … … 95 94 !!---------------------------------------------------------------------- 96 95 ! 97 IF( ln_timing ) CALL timing_start('tra_adv_qck')98 !99 96 IF( kt == kit000 ) THEN 100 97 IF(lwp) WRITE(numout,*) … … 116 113 ! ! vertical fluxes are computed with the 2nd order centered scheme 117 114 CALL tra_adv_cen2_k( kt, cdtype, pwn, ptn, pta, kjpt ) 118 !119 IF( ln_timing ) CALL timing_stop('tra_adv_qck')120 115 ! 121 116 END SUBROUTINE tra_adv_qck … … 427 422 REAL(wp) :: zc, zcurv, zfho ! - - 428 423 !---------------------------------------------------------------------- 429 !430 IF( ln_timing ) CALL timing_start('quickest')431 424 ! 432 425 DO jk = 1, jpkm1 … … 460 453 END DO 461 454 ! 462 IF( ln_timing ) CALL timing_stop('quickest')463 !464 455 END SUBROUTINE quickest 465 456
Note: See TracChangeset
for help on using the changeset viewer.