ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_transport_combiner.f90
Go to the documentation of this file.
1 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
3 
4 
5  !-------------------------------------------------------!
6  ! This routine combines transport coeffients !
7  ! from different 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_transport_combiner &
20  (coreprof, coretransp, &
21  coretransp1, coretransp2, &
22  coretransp3, coretransp4, &
23  coretransp5, coretransp_out, &
24  amix_tr, code_parameters)
25 
26 
27  USE itm_constants
28  USE euitm_schemas
29  USE transport_combiner
30 
31  IMPLICIT NONE
32 
33 
34 ! +++ CPOs:
35  TYPE (type_coreprof), POINTER :: coreprof(:)
36 
37  TYPE (type_coretransp), POINTER :: coretransp(:)
38 
39  TYPE (type_coretransp), POINTER :: coretransp1(:)
40  TYPE (type_coretransp), POINTER :: coretransp2(:)
41  TYPE (type_coretransp), POINTER :: coretransp3(:)
42  TYPE (type_coretransp), POINTER :: coretransp4(:)
43  TYPE (type_coretransp), POINTER :: coretransp5(:)
44 
45  TYPE (type_coretransp), POINTER :: coretransp_out(:)
46 
47  TYPE (type_param) :: code_parameters
48 
49  REAL (R8) :: amix_tr
50 
51 
52 
53 
54  CALL combine_transport &
55  (coreprof, coretransp, &
56  coretransp1, coretransp2, &
57  coretransp3, coretransp4, &
58  coretransp5, coretransp_out, &
59  amix_tr, code_parameters)
60 
61 
62  RETURN
63 
64  END SUBROUTINE fc2k_transport_combiner
65 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
66 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
67 
68 
fc2k_transport_combiner
subroutine fc2k_transport_combiner(COREPROF, CORETRANSP, CORETRANSP1, CORETRANSP2, CORETRANSP3, CORETRANSP4, CORETRANSP5, CORETRANSP_OUT, AMIX_TR, code_parameters)
Definition: fc2k_transport_combiner.f90:19
transport_combiner::combine_transport
subroutine combine_transport(COREPROF, CORETRANSP, CORETRANSP1, CORETRANSP2, CORETRANSP3, CORETRANSP4, CORETRANSP5, CORETRANSP_OUT, AMIX_TR, code_parameters)
Definition: transport_combiner.f90:26
transport_combiner
Definition: transport_combiner.f90:1