- 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/DOM/domvvl.F90
r9090 r9124 119 119 REAL(wp):: zcoef 120 120 !!---------------------------------------------------------------------- 121 !122 IF( ln_timing ) CALL timing_start('dom_vvl_init')123 121 ! 124 122 IF(lwp) WRITE(numout,*) … … 239 237 ENDIF 240 238 ENDIF 241 !242 IF( ln_timing ) CALL timing_stop('dom_vvl_init')243 239 ! 244 240 END SUBROUTINE dom_vvl_init … … 674 670 !!---------------------------------------------------------------------- 675 671 ! 676 IF( ln_timing ) CALL timing_start('dom_vvl_interpol')677 !678 672 IF(ln_wd_il) THEN 679 673 zlnwd = 1.0_wp … … 761 755 END SELECT 762 756 ! 763 IF( ln_timing ) CALL timing_stop('dom_vvl_interpol')764 !765 757 END SUBROUTINE dom_vvl_interpol 766 758 … … 784 776 INTEGER :: id1, id2, id3, id4, id5 ! local integers 785 777 !!---------------------------------------------------------------------- 786 !787 IF( ln_timing ) CALL timing_start('dom_vvl_rst')788 778 ! 789 779 IF( TRIM(cdrw) == 'READ' ) THEN ! Read/initialise … … 957 947 ENDIF 958 948 ! 959 IF( ln_timing ) CALL timing_stop('dom_vvl_rst')960 !961 949 END SUBROUTINE dom_vvl_rst 962 950
Note: See TracChangeset
for help on using the changeset viewer.