calculate_distribution Subroutine

private subroutine calculate_distribution(g_vs_kykxztube, g_vs_vpamuikxkyzs, g2_vs_tzmus, g2_vs_zvpas, g2_vs_vpamus, g2_vs_zkykxs, g2_vs_zvpamus, g2nozonal_vs_tzmus, g2nozonal_vs_zvpas, g2nozonal_vs_vpamus, g2nozonal_vs_zvpamus)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:)	::	g_vs_kykxztube
complex,	intent(in),		dimension(:, :, kxkyz_lo%llim_proc:)	::	g_vs_vpamuikxkyzs
real,	intent(out),		dimension(:, :, :, :)	::	g2_vs_tzmus
real,	intent(out),		dimension(:, :, :, :)	::	g2_vs_zvpas
real,	intent(out),		dimension(:, :, :)	::	g2_vs_vpamus
real,	intent(out),		dimension(:, :, :, :, :)	::	g2_vs_zkykxs
real,	intent(out),		dimension(:, :, :, :, :)	::	g2_vs_zvpamus
real,	intent(out),		dimension(:, :, :, :)	::	g2nozonal_vs_tzmus
real,	intent(out),		dimension(:, :, :, :)	::	g2nozonal_vs_zvpas
real,	intent(out),		dimension(:, :, :)	::	g2nozonal_vs_vpamus
real,	intent(out),		dimension(:, :, :, :, :)	::	g2nozonal_vs_zvpamus