ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_delta3_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_delta3_combiner &
19  (coreprof, &
20  coredelta1, coredelta2, coredelta3, &
21  coredelta_out, code_parameters)
22 
23  USE euitm_schemas
24  USE delta3_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 :: coredelta3(:)
36  TYPE (type_coredelta), POINTER :: coredelta_out(:)
37 
38  TYPE (type_param) :: code_parameters
39 
40 
41 
42  CALL combine_deltas &
43  (coreprof, &
44  coredelta1, coredelta2, coredelta3, &
45  coredelta_out, code_parameters)
46 
47  RETURN
48 
49 
50  END SUBROUTINE fc2k_delta3_combiner
51 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
52 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
53 
delta3_combiner
Definition: delta3_combiner.f90:1
delta3_combiner::combine_deltas
subroutine combine_deltas(COREPROF, COREDELTA1, COREDELTA2, COREDELTA3, COREDELTA_OUT, code_parameters)
Definition: delta3_combiner.f90:21
fc2k_delta3_combiner
subroutine fc2k_delta3_combiner(COREPROF, COREDELTA1, COREDELTA2, COREDELTA3, COREDELTA_OUT, code_parameters)
Definition: fc2k_delta3_combiner.f90:18