subroutine getstc	(	real (kind=kind_io8), dimension(len)	tsffld,
		real (kind=kind_io8), dimension(len)	tg3fld,
		real (kind=kind_io8), dimension(len)	slifld,
		integer	len,
		integer	lsoil,
		real (kind=kind_io8), dimension(len,lsoil)	stcfld,
		real (kind=kind_io8)	tsfimx
	)

Referenced by sfccycle(), and usesgt().