REAL FUNCTION cloud_time()

!------------------------------------------------------------------------------
! Is a function stub to time the routines in the cloud model
!------------------------------------------------------------------------------
  REAL :: tmp(2)

!------------------------------------------------------------------------------
! CRAY DEFINITION FOR TIMING
!------------------------------------------------------------------------------

!  cloud_time = second()

!------------------------------------------------------------------------------
! IBM  DEFINITION FOR TIMING
!------------------------------------------------------------------------------

!  cloud_time = mclock()/100.

!------------------------------------------------------------------------------
! SUN/DEC  DEFINITION FOR TIMING
!------------------------------------------------------------------------------

  cloud_time = etime(tmp)

  RETURN
  END FUNCTION cloud_time