subroutine newice	(	real (kind=kind_io8), dimension(len)	slianl,
		real (kind=kind_io8), dimension(len)	slifcs,
			tsfanl,
			tsffcs,
		integer	len,
		integer	lsoil,
			sihnew,
			sicnew,
		real (kind=kind_io8), dimension(len)	sihanl,
		real (kind=kind_io8), dimension(len)	sicanl,
		real (kind=kind_io8), dimension(len,4)	albanl,
		real (kind=kind_io8), dimension(len)	snoanl,
		real (kind=kind_io8), dimension(len)	zoranl,
		real (kind=kind_io8), dimension(len,lsoil)	smcanl,
		real (kind=kind_io8), dimension(len,lsoil)	stcanl,
		real (kind=kind_io8)	albsea,
		real (kind=kind_io8)	snosea,
		real (kind=kind_io8)	zorsea,
		real (kind=kind_io8)	smcsea,
		real (kind=kind_io8)	smcice,
		real (kind=kind_io8)	tsfmin,
		real (kind=kind_io8)	tsfice,
		real (kind=kind_io8)	albice,
		real (kind=kind_io8)	zorice,
		real (kind=kind_io8)	tgice,
		real (kind=kind_io8), dimension(len)	rla,
		real (kind=kind_io8), dimension(len)	rlo,
		integer	me
	)

Referenced by sfccycle().