ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_delta_combiner.f90
Go to the documentation of this file.
1 
2 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
3 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
4 
5  !-------------------------------------------------------!
6  ! This routine combines deltas !
7  ! from dufferent modules and interpolates them !
8  ! on the COREPROF grid !
9  !-------------------------------------------------------!
10  ! Delta: --- !
11  ! Developers: D.Kalupin !
12  ! Kontacts: Denis.Kalupin@efda.org !
13  ! !
14  ! Comments: created for ETS workflow !
15  ! !
16  !-------------------------------------------------------!
17 
18  SUBROUTINE fc2k_delta_combiner &
19  (coreprof, &
20  coredelta1, coredelta2, coredelta_out, &
21  code_parameters)
22 
23  USE euitm_schemas
24  USE delta_combiner
25 
26 
27  IMPLICIT NONE
28 
29 
30 
31 ! +++ CPOs
32  TYPE (type_coreprof), POINTER :: coreprof(:)
33  TYPE (type_coredelta), POINTER :: coredelta1(:)
34  TYPE (type_coredelta), POINTER :: coredelta2(:)
35  TYPE (type_coredelta), POINTER :: coredelta_out(:)
36 
37  TYPE (type_param) :: code_parameters
38 
39 
40 
41  CALL combine_deltas &
42  (coreprof, &
43  coredelta1, coredelta2, coredelta_out, &
44  code_parameters)
45 
46  RETURN
47 
48 
49  END SUBROUTINE fc2k_delta_combiner
50 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
51 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
52 
delta3_combiner::combine_deltas
subroutine combine_deltas(COREPROF, COREDELTA1, COREDELTA2, COREDELTA3, COREDELTA_OUT, code_parameters)
Definition: delta3_combiner.f90:21
delta_combiner
Definition: delta_combiner.f90:1
fc2k_delta_combiner
subroutine fc2k_delta_combiner(COREPROF, COREDELTA1, COREDELTA2, COREDELTA_OUT, code_parameters)
Definition: fc2k_delta_combiner.f90:18