xstuff.f90

Go to the documentation of this file.

 
MODULE xstuff
 
  USE stel_kinds, ONLY: rprec
 
  IMPLICIT NONE
 
! LOCAL VARIABLES
!
! rbcc,rbss,rbcs,rbsc
!          boundary Fourier coefficient arrays for R (of cosu*cosv, etc)
! zbcc,zbss,zbcs,zbsc
!          boundary Fourier coefficient arrays for Z
!
! XCC*COS(MU)COS(NV), XCS*COS(MU)SIN(NV), ETC
!
! STACKING ORDER DEPENDS ON LASYM AND LTHREED.
! EACH COMPONENT XCC, XSS, XSC, XCS HAS SIZE = mns.
!
!   LTHREED=F,      LTHREED=F,      LTHREED=T,      LTHREED=T
!   LASYM=F         LASYM=T         LASYM=F         LASYM=T
!
!    rmncc           rmncc           rmncc           rmncc
!    zmnsc           rmnsc           rmnss           rmnss
!    lmnsc           zmnsc           zmnsc           rmnsc
!                    zmncc           zmncs           rmncs
!                    lmnsc           lmnsc           zmnsc
!                    lmncc           lmncs           zmncs
!                                                    zmncc
!                                                    zmnss
!                                                    lmnsc
!                                                    lmncs
!                                                    lmncc
!                                                    lmnss
 
  REAL(rprec), DIMENSION(:), ALLOCATABLE :: gc, gc_con, gc_mhd
 
  REAL(rprec), DIMENSION(:), ALLOCATABLE, TARGET :: xc
 
  REAL(rprec), DIMENSION(:), ALLOCATABLE :: xcdot
 
  REAL(rprec), DIMENSION(:), ALLOCATABLE :: xsave
 
  REAL(rprec), DIMENSION(:), ALLOCATABLE :: xstore
 
  REAL(rprec), DIMENSION(:), ALLOCATABLE :: scalxc
 
END MODULE xstuff