subroutine tsfcor	(	real (kind=kind_io8), dimension(len)	tsfc,
		real (kind=kind_io8), dimension(len)	orog,
		real (kind=kind_io8), dimension(len)	slmask,
		real (kind=kind_io8)	umask,
		integer	len,
		real (kind=kind_io8)	rlapse
	)

Referenced by sfccycle().