!*******************************************************************************
!$RCSfile$
!$Revision$
!$Date$
!*******************************************************************************
!*******************************************************************************
!            Get current topography height
!*******************************************************************************
INTEGER FUNCTION CurrentTerrain( Location,Height )
USE SCIPresults_fd
CurrentTerrain = SCIPsuccess
RETURN
END
