private subroutine advance_wstar_explicit(phi, gout)
start timing the time advance due to the driving gradients
assume only a single flux surface simulated
calculate d/dy in k-space
Here g_scratch is in k-space that has been pre-calculated and stored
transform d/dy from ky-space to y-space
multiply d/dy with omega_ coefficient and add to source (RHS of GK eqn)
get d/dy in k-space
omega_ stays in ky,kx,z space with ky,kx,z local
multiply d/dy with omega_* coefficient and add to source (RHS of GK eqn)
stop timing the time advance due to the driving gradients
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
complex,
|
intent(in), |
|
dimension(:, :, -nzgrid:, :)
|
:: |
phi |
|
|
complex,
|
intent(inout), |
|
dimension(:, :, -nzgrid:, :, vmu_lo%llim_proc:)
|
:: |
gout |
|