island_params.f90

Go to the documentation of this file.

!*******************************************************************************
!
!  Note separating the Doxygen comment block here so detailed decription is
!  found in the Module not the file.
!
!*******************************************************************************
      MODULE island_params
      USE stel_kinds
      USE fourier, ONLY: fourier_class
 
      IMPLICIT NONE
 
!*******************************************************************************
!  island_params module variables
!*******************************************************************************
!  Number of radial grid points.
      INTEGER                             :: ns_i
!  Number of polodial grid points. FIXME: This should go in the fourier_class
      INTEGER                             :: nu_i
!  Number of toroidal grid points. FIXME: This should go in the fourier_class
      INTEGER                             :: nv_i
!  Number of polodial and toroidal grid points. FIXME: Is this really needed?
      INTEGER                             :: nuv_i
!  Number of poloidal modes. FIXME: This should go in the fourier_class
      INTEGER                             :: mpol_i
!  Number of toroidal modes. FIXME: This should go in the fourier_class
      INTEGER                             :: ntor_i
!  Number of radial grid vmec grid points. FIXME: This should be in vmec_info
      INTEGER                             :: ns_v
!  Number of poloidal vmec modes. FIXME: This should be in vmec_info
      INTEGER                             :: mpol_v
!  Number of toroidal vmec modes. FIXME: This should be in vmec_info
      INTEGER                             :: ntor_v
!  Number of field periods.  FIXME: This should go in the fourier_class
      INTEGER                             :: nfp_i
!  Number of total toroidal and poloidal vmec modes. FIXME: This should be in vmec_info
      INTEGER                             :: mnmax_i
!  Number of radial points on the half mesh. FIXME: is this really needed?
      INTEGER                             :: nsh
!  FIXME: These don't get used. Delete them.
!      INTEGER, ALLOCATABLE                :: irefu(:)
!      INTEGER, ALLOCATABLE                :: jrefv(:)                          ! -u, -v indices
      REAL (dp)                           :: hs_i
      REAL (dp)                           :: ohs_i
      REAL (dp)                           :: dnorm_i
      REAL (dp)                           :: gnorm_i
      REAL (dp)                           :: wb_i
      REAL (dp)                           :: wp_i
      REAL (dp)                           :: volume_i
      REAL (dp)                           :: rmajor_i
      REAL(dp), PARAMETER                 :: gamma = 5._dp/3._dp
      REAL(dp), ALLOCATABLE, DIMENSION(:) :: phipf_i
      REAL(dp), ALLOCATABLE, DIMENSION(:) :: chipf_i
      REAL(dp), ALLOCATABLE, DIMENSION(:) :: presf_i
      REAL(dp), ALLOCATABLE, DIMENSION(:) :: vp_f
      TYPE (fourier_class), POINTER       :: fourier_context => null()
 
      END MODULE