ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_source_combiner.f90
Go to the documentation of this file.
1 
2 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
3 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
4 
5  !-------------------------------------------------------!
6  ! This routine combines sources !
7  ! from dufferent modules and interpolates them !
8  ! on the COREPROF grid !
9  !-------------------------------------------------------!
10  ! Source: --- !
11  ! Developers: D.Kalupin !
12  ! Kontacts: Denis.Kalupin@efda.org !
13  ! !
14  ! Comments: created for V&V between ETS and !
15  ! ASTRA !
16  ! !
17  !-------------------------------------------------------!
18 
19  SUBROUTINE fc2k_source_combiner &
20  (coreprof, coresource, &
21  coresource1, coresource2, coresource3, &
22  coresource4, coresource5, coresource6, &
23  coresource7, &
24  coresource_out, amix_src, code_parameters)
25 
26  USE allocate_deallocate
27 
28  USE itm_constants
29  USE euitm_routines
30  USE euitm_schemas
31  USE euitm_xml_parser
32  USE deallocate_structures
33  USE interpolate_cpo
34  USE source_combiner
35 
36  IMPLICIT NONE
37 
38 
39 
40 ! +++ CPOs
41  TYPE (type_coreprof), POINTER :: coreprof(:)
42  TYPE (type_coresource), POINTER :: coresource(:)
43 
44  TYPE (type_coresource), POINTER :: coresource1(:)
45  TYPE (type_coresource), POINTER :: coresource2(:)
46  TYPE (type_coresource), POINTER :: coresource3(:)
47  TYPE (type_coresource), POINTER :: coresource4(:)
48  TYPE (type_coresource), POINTER :: coresource5(:)
49  TYPE (type_coresource), POINTER :: coresource6(:)
50  TYPE (type_coresource), POINTER :: coresource7(:)
51  TYPE (type_coresource), POINTER :: coresource_out(:)
52  TYPE (type_coresource), POINTER :: coresource_arr(:)
53  TYPE (type_coresource), POINTER :: coresource_mix(:)
54 
55  TYPE (type_param) :: code_parameters
56 
57  REAL (R8) :: amix_src
58 
59 
60 
61  CALL combine_sources &
62  (coreprof, coresource, &
63  coresource1, coresource2, coresource3, &
64  coresource4, coresource5, coresource6, &
65  coresource7, &
66  coresource_out, amix_src, code_parameters)
67 
68 
69  END SUBROUTINE fc2k_source_combiner
70 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
71 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
72 
interpolate_cpo
Definition: interpolate_cpo.f90:1
allocate_deallocate
This module contains routines for allocation/deallocation if CPOs used in ETS.
Definition: allocate_deallocate.f90:8
source_combiner
Definition: source_combiner.f90:1
fc2k_source_combiner
subroutine fc2k_source_combiner(COREPROF, CORESOURCE, CORESOURCE1, CORESOURCE2, CORESOURCE3, CORESOURCE4, CORESOURCE5, CORESOURCE6, CORESOURCE7, CORESOURCE_OUT, AMIX_SRC, code_parameters)
Definition: fc2k_source_combiner.f90:19
source_combiner::combine_sources
subroutine combine_sources(COREPROF, CORESOURCE, CORESOURCE1, CORESOURCE2, CORESOURCE3, CORESOURCE4, CORESOURCE5, CORESOURCE6, CORESOURCE7, CORESOURCE_OUT, AMIX_SRC, code_parameters)
Definition: source_combiner.f90:22