oro_wam_2017()

subroutine oro_wam_2017	(	integer	im,
		integer	levs,
		integer	npt,
		integer, dimension(im)	ipt,
		integer, dimension(im)	kref,
		integer	kdt,
		integer	me,
		integer	master
	)