ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_geom_from_wf_param.f90
Go to the documentation of this file.
1 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
3 SUBROUTINE geom_from_wf_param(EQUILIBRIUM, EQUILIBRIUM_OUT, &
4  geo_ax, mag_ax, plasma_ax, &
5  ip, amin, &
6  elong_up, elong_low, &
7  tria_up, tria_low, &
8  npsi, ndim1, ndim2, npoints)
9 
10 !--------------------------------------------------------
11 ! This is FC2K wrapper for GEOMETRY_FROM_WF_PARAMETERS !
12 !--------------------------------------------------------
13 
14  USE itm_types
15  USE euitm_schemas
16  USE equilibrium_tools
17  USE ets_plasma
18 
19  IMPLICIT NONE
20 
21  TYPE (type_equilibrium), POINTER :: equilibrium(:)
22  TYPE (type_equilibrium), POINTER :: equilibrium_out(:)
23 
24  REAL (R8) :: geo_ax(3)
25  REAL (R8) :: mag_ax(3)
26  REAL (R8) :: plasma_ax(3)
27 
28  REAL (R8) :: ip
29  REAL (R8) :: amin
30  REAL (R8) :: elong_up, elong_low
31  REAL (R8) :: tria_up, tria_low
32 
33  INTEGER :: npsi
34  INTEGER :: ndim1
35  INTEGER :: ndim2
36  INTEGER :: npoints
37 
38  CALL geometry_from_wf_parameters(equilibrium, equilibrium_out, &
39  geo_ax, mag_ax, plasma_ax, &
40  ip, amin, &
41  elong_up, elong_low, &
42  tria_up, tria_low, &
43  npsi, ndim1, ndim2, npoints)
44 
45  RETURN
46 
47 
48 END SUBROUTINE geom_from_wf_param
49 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
50 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
geom_from_wf_param
subroutine geom_from_wf_param(EQUILIBRIUM, EQUILIBRIUM_OUT, GEO_AX, MAG_AX, PLASMA_AX, IP, AMIN, ELONG_UP, ELONG_LOW, TRIA_UP, TRIA_LOW, NPSI, NDIM1, NDIM2, NPOINTS)
Definition: fc2k_geom_from_wf_param.f90:3
equilibrium_tools::geometry_from_wf_parameters
subroutine geometry_from_wf_parameters(EQUILIBRIUM,EQUILIBRIUM_OUT,
Definition: equilibrium_tools.f90:30
equilibrium_tools
Definition: equilibrium_tools.f90:1
ets_plasma
The module declares types of variables used in ETS (transport code)
Definition: ets_plasma.f90:8