g_to_h_vmu_single Subroutine

private subroutine g_to_h_vmu_single(ivmu, g0, phi, bpar, facphi, phi_corr)

adjust bpar part of Zs / Ts

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ivmu
complex,	intent(inout),		dimension(:, :, -nzgrid:, :)	::	g0
complex,	intent(in),		dimension(:, :, -nzgrid:, :)	::	phi
complex,	intent(in),		dimension(:, :, -nzgrid:, :)	::	bpar
real,	intent(in)			::	facphi
complex,	intent(in),	optional,	dimension(:, :, -nzgrid:, :)	::	phi_corr