subroutine rof01_len	(	real (kind=kind_io8), dimension(len)	aisfld,
		integer	len,
		character*2	op,
		logical, dimension(len)	lake,
		real (kind=kind_io8)	critl,
		real (kind=kind_io8)	crits
	)

Referenced by sfccycle().