ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_merger.f90
Go to the documentation of this file.
1 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
3  SUBROUTINE merger (EQUILIBRIUM, &
4  toroidfield, &
5  mhd, &
6  sawteeth, &
7  coreprof, &
8  coretransp, &
9  coresource, &
10  coreimpur, &
11  coreneutrals, &
12  corefast, &
13  coredelta, &
14  compositionc, &
15  neoclassic, &
16  waves, &
17  distsource, &
18  distribution, &
19  wall, &
20  nbi, &
21  antennas, &
22  ironmodel, &
23  pfsystems, &
24  fusiondiag, &
25  scenario, &
26  pellets )
27 
28 ! +++ Declaration of variables:
29  USE itm_types
30  USE euitm_schemas
31  USE copy_structures
32 
33 
34 ! +++ CPO derived types:
35  TYPE (type_equilibrium), POINTER :: equilibrium(:)
36  TYPE (type_toroidfield), POINTER :: toroidfield(:)
37  TYPE (type_mhd), POINTER :: mhd(:)
38  TYPE (type_sawteeth), POINTER :: sawteeth(:)
39 
40  TYPE (type_coreprof), POINTER :: coreprof(:)
41  TYPE (type_coretransp), POINTER :: coretransp(:)
42  TYPE (type_coresource), POINTER :: coresource(:)
43  TYPE (type_coreimpur), POINTER :: coreimpur(:)
44  TYPE (type_coreneutrals), POINTER :: coreneutrals(:)
45  TYPE (type_corefast), POINTER :: corefast(:)
46  TYPE (type_coredelta), POINTER :: coredelta(:)
47  TYPE (type_compositionc), POINTER :: compositionc(:)
48  TYPE (type_neoclassic), POINTER :: neoclassic(:)
49 
50  TYPE (type_waves), POINTER :: waves(:)
51  TYPE (type_distsource), POINTER :: distsource(:)
52  TYPE (type_distribution), POINTER :: distribution(:)
53 
54  TYPE (type_wall), POINTER :: wall(:)
55  TYPE (type_nbi), POINTER :: nbi(:)
56  TYPE (type_antennas), POINTER :: antennas(:)
57  TYPE (type_ironmodel), POINTER :: ironmodel(:)
58  TYPE (type_pfsystems), POINTER :: pfsystems(:)
59 
60  TYPE (type_fusiondiag), POINTER :: fusiondiag(:)
61  TYPE (type_scenario), POINTER :: scenario(:)
62  TYPE (type_pellets), POINTER :: pellets(:)
63 
64  RETURN
65 
66  END SUBROUTINE merger
67 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
68 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
69 
70 
71 
72 
73 
74 
75 
generic_sources::nbi
subroutine, public nbi(equilibrium, coreprof, coresource)
Definition: generic_sources.f90:237
merger
subroutine merger(EQUILIBRIUM, TOROIDFIELD, MHD, SAWTEETH, COREPROF, CORETRANSP, CORESOURCE, COREIMPUR, CORENEUTRALS, COREFAST, COREDELTA, COMPOSITIONC, NEOCLASSIC, WAVES, DISTSOURCE, DISTRIBUTION, WALL, NBI, ANTENNAS, IRONMODEL, PFSYSTEMS, FUSIONDIAG, SCENARIO, PELLETS)
Definition: fc2k_merger.f90:3