fc2k_rho_tor_calc.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   

SUBROUTINE calculate_rhotor(PLASMA_AX, MAG_AX, AMIN, ELONG_UP, ELONG_LOW, TRIA_UP, TRIA_LOW, RHO)

!--------------------------------------------------------
! This is FC2K wrapper for CALCULATE_RHO_TOR            !
!--------------------------------------------------------

  USE itm_constants
  USE equilibrium_tools
  USE ets_plasma

  IMPLICIT NONE

  TYPE (diagnostic)                :: diag 
  
  REAL (R8)                        :: geo_ax(3)
  REAL (R8)                        :: mag_ax(3)
  REAL (R8)                        :: plasma_ax(3)
  
  REAL (R8)                        :: ip
  REAL (R8)                        :: amin
  REAL (R8)                        :: elong_up, elong_low
  REAL (R8)                        :: tria_up,  tria_low

  REAL (R8)                        :: rho


  CALL calculate_rho_tor(plasma_ax, mag_ax, amin, elong_up, elong_low, tria_up, tria_low, &
                         rho, diag)


  RETURN

END SUBROUTINE calculate_rhotor
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +