calculate_theta Subroutine

private subroutine calculate_theta(nzgrid, zeta, nalpha, alpha, iota, theta, ierr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nzgrid
real,	intent(in),		dimension(-nzgrid:)	::	zeta
integer,	intent(in)			::	nalpha
real,	intent(in),		dimension(:)	::	alpha
real,	intent(in)			::	iota
real,	intent(out),		dimension(:, -nzgrid:)	::	theta
integer,	intent(inout)			::	ierr