subroutine getsmc	(	real (kind=kind_io8), dimension(len)	wetfld,
		integer	len,
		integer	lsoil,
		real (kind=kind_io8), dimension(len,lsoil)	smcfld,
		integer	me
	)

Referenced by sfccycle().