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