- 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/LDF/ldftra.F90
r9094 r9124 30 30 USE lib_mpp ! distribued memory computing library 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 USE timing ! timing33 32 34 33 IMPLICIT NONE … … 492 491 !!---------------------------------------------------------------------- 493 492 ! 494 IF( ln_timing ) CALL timing_start('ldf_eiv')495 !496 493 zn (:,:) = 0._wp ! Local initialization 497 494 zhw (:,:) = 5._wp … … 571 568 END DO 572 569 ! 573 IF( ln_timing ) CALL timing_stop('ldf_eiv')574 !575 570 END SUBROUTINE ldf_eiv 576 571 … … 607 602 !!---------------------------------------------------------------------- 608 603 ! 609 IF( ln_timing ) CALL timing_start( 'ldf_eiv_trp')610 !611 604 IF( kt == kit000 ) THEN 612 605 IF(lwp) WRITE(numout,*) … … 650 643 IF( ln_ldfeiv_dia .AND. cdtype == 'TRA' ) CALL ldf_eiv_dia( zpsi_uw, zpsi_vw ) 651 644 ! 652 IF( ln_timing ) CALL timing_stop( 'ldf_eiv_trp')653 !654 645 END SUBROUTINE ldf_eiv_trp 655 646 … … 675 666 !!gm I don't like this routine.... Crazy way of doing things, not optimal at all... 676 667 !!gm to be redesigned.... 677 IF( ln_timing ) CALL timing_start( 'ldf_eiv_dia')678 !679 668 ! !== eiv stream function: output ==! 680 669 CALL lbc_lnk_multi( psi_uw, 'U', -1. , psi_vw, 'V', -1. ) … … 780 769 ! 781 770 ! 782 IF( ln_timing ) CALL timing_stop( 'ldf_eiv_dia')783 !784 771 END SUBROUTINE ldf_eiv_dia 785 772
Note: See TracChangeset
for help on using the changeset viewer.