subroutine monitr	(	character(len=*)	lfld,
		real (kind=kind_io8), dimension(ijmax)	fld,
		real (kind=kind_io8), dimension(ijmax)	slimsk,
		real (kind=kind_io8), dimension(ijmax)	sno,
		integer	ijmax
	)

Referenced by sfccycle().