SUBROUTINE TIMER(SUB,I)

  IMPLICIT NONE

  CHARACTER*(*) SUB
  INTEGER I

! Dummy routine
! Required to satisfy calls to subroutine from surface JULES code

  RETURN
  END