mgrid_mod.f File Reference

Go to the source code of this file.

Modules
module	mgrid_mod

Functions/Subroutines
subroutine	mgrid_mod::read_mgrid (mgrid_file, extcur, nv, nfp, lscreen, ier_flag)
subroutine	mgrid_mod::sum_bfield (bfield, bf_add, cur, n1)
subroutine	mgrid_mod::assign_bptrs (bptr)
subroutine	mgrid_mod::free_mgrid (istat)

Variables
logical	mgrid_mod::lnverror =.true.
integer, parameter	mgrid_mod::nlimset = 2
character(len= *), parameter	mgrid_mod::vn_br0 = 'br'
character(len= *), parameter	mgrid_mod::vn_bp0 = 'bp'
character(len= *), parameter	mgrid_mod::vn_bz0 = 'bz'
character(len= *), parameter	mgrid_mod::vn_ir = 'ir'
character(len= *), parameter	mgrid_mod::vn_jz = 'jz'
character(len= *), parameter	mgrid_mod::vn_kp = 'kp'
character(len= *), parameter	mgrid_mod::vn_nfp = 'nfp'
character(len= *), parameter	mgrid_mod::vn_rmin ='rmin'
character(len= *), parameter	mgrid_mod::vn_rmax ='rmax'
character(len= *), parameter	mgrid_mod::vn_zmin ='zmin'
character(len= *), parameter	mgrid_mod::vn_zmax ='zmax'
character(len= *), parameter	mgrid_mod::vn_coilgrp ='coil_group'
character(len= *), parameter	mgrid_mod::vn_nextcur = 'nextcur'
character(len= *), parameter	mgrid_mod::vn_mgmode ='mgrid_mode'
character(len= *), parameter	mgrid_mod::vn_coilcur = 'raw_coil_cur'
character(len= *), parameter	mgrid_mod::vn_flp = 'nobser'
character(len= *), parameter	mgrid_mod::vn_nobd = 'nobd'
character(len= *), parameter	mgrid_mod::vn_nbset = 'nbsets'
character(len= *), parameter	mgrid_mod::vn_nbfld = 'nbfld'
character(len= *), parameter	mgrid_mod::ln_flp = 'flux loops'
character(len= *), parameter	mgrid_mod::ln_nobd = 'Connected flux loops'
character(len= *), parameter	mgrid_mod::ln_nbset = 'B-coil loops'
character(len= *), parameter	mgrid_mod::ln_next = 'External currents'
character(len= *), parameter	mgrid_mod::ln_nbfld = 'B-coil measurements'
integer	mgrid_mod::nr0b
integer	mgrid_mod::np0b
integer	mgrid_mod::nfper0
integer	mgrid_mod::nz0b
integer	mgrid_mod::nobd
integer	mgrid_mod::nobser
integer	mgrid_mod::nextcur
integer	mgrid_mod::nbfldn
integer	mgrid_mod::nbsets
integer	mgrid_mod::nbcoilsn
integer	mgrid_mod::nbvac
integer	mgrid_mod::nbcoil_max
integer	mgrid_mod::nlim
integer	mgrid_mod::nlim_max
integer	mgrid_mod::nsets
integer	mgrid_mod::nrgrid
integer	mgrid_mod::nzgrid
integer, dimension(:), allocatable	mgrid_mod::needflx
integer, dimension(:), allocatable	mgrid_mod::nbcoils
integer, dimension(:), allocatable	mgrid_mod::limitr
integer, dimension(:), allocatable	mgrid_mod::nsetsn
integer, dimension(:,:), allocatable	mgrid_mod::iconnect
integer, dimension(:,:), allocatable	mgrid_mod::needbfld
real(rprec)	mgrid_mod::rminb
real(rprec)	mgrid_mod::zminb
real(rprec)	mgrid_mod::rmaxb
real(rprec)	mgrid_mod::zmaxb
real(rprec)	mgrid_mod::delrb
real(rprec)	mgrid_mod::delzb
real(rprec)	mgrid_mod::rx1
real(rprec)	mgrid_mod::rx2
real(rprec)	mgrid_mod::zy1
real(rprec)	mgrid_mod::zy2
real(rprec)	mgrid_mod::condif
real(rprec), dimension(:,:), allocatable, target	mgrid_mod::bvac
real(rprec), dimension(:,:,:), pointer	mgrid_mod::brvac
real(rprec), dimension(:,:,:), pointer	mgrid_mod::bzvac
real(rprec), dimension(:,:,:), pointer	mgrid_mod::bpvac
real(rprec), dimension(:,:), allocatable	mgrid_mod::unpsiext
real(rprec), dimension(:,:), allocatable	mgrid_mod::plbfld
real(rprec), dimension(:,:), allocatable	mgrid_mod::rbcoil
real(rprec), dimension(:,:), allocatable	mgrid_mod::zbcoil
real(rprec), dimension(:,:), allocatable	mgrid_mod::abcoil
real(rprec), dimension(:,:), allocatable	mgrid_mod::bcoil
real(rprec), dimension(:,:), allocatable	mgrid_mod::rbcoilsqr
real(rprec), dimension(:), allocatable	mgrid_mod::raw_coil_current
real(rprec), dimension(:), allocatable	mgrid_mod::xobser
real(rprec), dimension(:), allocatable	mgrid_mod::zobser
real(rprec), dimension(:), allocatable	mgrid_mod::xobsqr
real(rprec), dimension(:), allocatable	mgrid_mod::dsiext
real(rprec), dimension(:), allocatable	mgrid_mod::psiext
real(rprec), dimension(:), allocatable	mgrid_mod::plflux
real(rprec), dimension(:), allocatable	mgrid_mod::b_chi
character(len=300)	mgrid_mod::mgrid_path
character(len=300)	mgrid_mod::mgrid_path_old = " "
character(len=30), dimension(:), allocatable	mgrid_mod::curlabel
character(len=15), dimension(:), allocatable	mgrid_mod::dsilabel
character(len=15), dimension(:), allocatable	mgrid_mod::bloopnames
character(len=30)	mgrid_mod::tokid
real(rprec), dimension(:,:,:), allocatable	mgrid_mod::dbcoil
real(rprec), dimension(:,:,:), allocatable	mgrid_mod::pfcspec
real(rprec), dimension(:,:), allocatable	mgrid_mod::rlim
real(rprec), dimension(:,:), allocatable	mgrid_mod::zlim
real(rprec), dimension(:,:), allocatable	mgrid_mod::reslim
real(rprec), dimension(:,:), allocatable	mgrid_mod::seplim
character(len=1)	mgrid_mod::mgrid_mode