subroutine qcbyfc	(	real (kind=kind_io8), dimension(len)	tsffcs,
		real (kind=kind_io8), dimension(len)	snofcs,
		real (kind=kind_io8)	qctsfs,
		real (kind=kind_io8)	qcsnos,
		real (kind=kind_io8)	qctsfi,
		integer	len,
		integer	lsoil,
		real (kind=kind_io8), dimension(len)	snoanl,
		real (kind=kind_io8), dimension(len)	aisanl,
		real (kind=kind_io8), dimension(len)	slianl,
		real (kind=kind_io8), dimension(len)	tsfanl,
		real (kind=kind_io8), dimension(len,4)	albanl,
		real (kind=kind_io8), dimension(len)	zoranl,
		real (kind=kind_io8), dimension(len,lsoil)	smcanl,
		real (kind=kind_io8), dimension(len,lsoil)	smcclm,
		real (kind=kind_io8)	tsfsmx,
		real (kind=kind_io8)	albomx,
		real (kind=kind_io8)	zoromx,
		integer	me
	)

Referenced by sfccycle().