- 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/ldfslp.F90
r9094 r9124 408 408 IF( ln_timing ) CALL timing_start('ldf_slp_triad') 409 409 ! 410 !411 410 !--------------------------------! 412 411 ! Some preliminary calculation ! … … 644 643 REAL(wp) :: zck, zfk, zbw ! - - 645 644 !!---------------------------------------------------------------------- 646 !647 IF( ln_timing ) CALL timing_start('ldf_slp_mxl')648 645 ! 649 646 zeps = 1.e-20_wp !== Local constant initialization ==! … … 727 724 CALL lbc_lnk_multi( uslpml , 'U', -1. , vslpml , 'V', -1. , wslpiml, 'W', -1. , wslpjml, 'W', -1. ) 728 725 ! 729 IF( ln_timing ) CALL timing_stop('ldf_slp_mxl')730 !731 726 END SUBROUTINE ldf_slp_mxl 732 727 … … 743 738 INTEGER :: ierr ! local integer 744 739 !!---------------------------------------------------------------------- 745 !746 IF( ln_timing ) CALL timing_start('ldf_slp_init')747 740 ! 748 741 IF(lwp) THEN … … 801 794 ENDIF 802 795 ! 803 IF( ln_timing ) CALL timing_stop('ldf_slp_init')804 !805 796 END SUBROUTINE ldf_slp_init 806 797
Note: See TracChangeset
for help on using the changeset viewer.