XGCa
|
Functions/Subroutines | |
subroutine | q_evaluation (grid, R, Z, nw, nh, npsi, psi_in) |
subroutine | findpsi (r_r, z_z, m, r, z, nw, nh, psi_rz, psi_temp) |
subroutine | constpsi_contour (psipsi, r_con, z_con, psi_con, mtheta, gridm, r_psitmp, z_psitmp) |
subroutine | findfonconstpsi (r, z, f, nw, nh, r_psi, z_psi, fun_psi, np, mtheta) |
subroutine | integrate (r_psi, z_psi, Bp_psi, fun_psi, np, mtheta, F_psi) |
subroutine constpsi_contour | ( | real(kind=8), intent(in) | psipsi, |
real(kind=8), dimension(mtheta,gridm), intent(in) | r_con, | ||
real(kind=8), dimension(mtheta,gridm), intent(in) | z_con, | ||
real(kind=8), dimension(mtheta,gridm), intent(in) | psi_con, | ||
integer, intent(in) | mtheta, | ||
integer, intent(in) | gridm, | ||
real(kind=8), dimension(mtheta), intent(out) | r_psitmp, | ||
real(kind=8), dimension(mtheta), intent(out) | z_psitmp | ||
) |
subroutine findfonconstpsi | ( | real(kind=8), dimension(nw), intent(in) | r, |
real(kind=8), dimension(nh), intent(in) | z, | ||
real(kind=8), dimension(nw,nh), intent(in) | f, | ||
integer, intent(in) | nw, | ||
integer, intent(in) | nh, | ||
real(kind=8), dimension(np,mtheta), intent(in) | r_psi, | ||
real(kind=8), dimension(np,mtheta), intent(in) | z_psi, | ||
real(kind=8), dimension(np,mtheta), intent(out) | fun_psi, | ||
integer, intent(in) | np, | ||
integer, intent(in) | mtheta | ||
) |
subroutine findpsi | ( | real(kind=8), dimension(m), intent(in) | r_r, |
real(kind=8), dimension(m), intent(in) | z_z, | ||
integer, intent(in) | m, | ||
real(kind=8), dimension(nw), intent(in) | r, | ||
real(kind=8), dimension(nh), intent(in) | z, | ||
integer, intent(in) | nw, | ||
integer, intent(in) | nh, | ||
real(kind=8), dimension(nw,nh), intent(in) | psi_rz, | ||
real(kind=8), dimension(m), intent(out) | psi_temp | ||
) |
subroutine integrate | ( | real(kind=8), dimension(np,mtheta), intent(in) | r_psi, |
real(kind=8), dimension(np,mtheta), intent(in) | z_psi, | ||
real(kind=8), dimension(np,mtheta), intent(in) | Bp_psi, | ||
real(kind=8), dimension(np,mtheta), intent(in) | fun_psi, | ||
integer, intent(in) | np, | ||
integer, intent(in) | mtheta, | ||
real(kind=8), dimension(np), intent(out) | F_psi | ||
) |
subroutine q_evaluation | ( | type(grid_type), intent(inout) | grid, |
real(kind=8), dimension(nw), intent(in) | R, | ||
real(kind=8), dimension(nh), intent(in) | Z, | ||
integer, intent(in) | nw, | ||
integer, intent(in) | nh, | ||
integer, intent(in) | npsi, | ||
real(kind=8), dimension(npsi), intent(in) | psi_in | ||
) |