sample_poloidal_flux Subroutine

  1. korc_interp.f90
  2. korc_interp
  3. sample_poloidal_flux

public subroutine sample_poloidal_flux(F)

Arguments

Type IntentOptional AttributesName
type(FIELDS), intent(inout) :: F

Contents

Source Code

sample_poloidal_flux

Source Code

subroutine sample_poloidal_flux(F)

  TYPE(FIELDS), INTENT(INOUT)                               :: F
  
  ! FR = (dA/dZ)/R
  call EZspline_interp(bfield_2d%A,F%dims(1),F%dims(3),F%X%R, F%X%Z, &
       F%PSIp, ezerr)
  call EZspline_error(ezerr)


  !        write(6,'("AR",E17.10)') gradA(1)
  !        write(6,'("AZ",E17.10)') gradA(2)        
       
end subroutine sample_poloidal_flux