ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
fc2k_changeradii.f90
Go to the documentation of this file.
1 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
2 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
3  SUBROUTINE fc2k_changeradii (EQUILIBRIUM_IN, &
4  coreprof_in, coreprof_out, &
5  coretransp_in, coretransp_out, &
6  coresource_in, coresource_out, &
7  coreimpur_in, coreimpur_out, &
8  coreneutrals_in, coreneutrals_out, &
9  neoclassic_in, neoclassic_out)
10 
11 ! +++ Declaration of variables:
12  USE itm_types
13  USE euitm_schemas
14  USE copy_structures
15  USE convert
16 
17 
18 ! +++ CPO derived types:
19  TYPE (type_equilibrium), POINTER :: equilibrium_in(:) !input CPO
20 
21  TYPE (type_coreprof), POINTER :: coreprof_in(:) !input CPO
22  TYPE (type_coreprof), POINTER :: coreprof_out(:) !output CPO
23  TYPE (type_coretransp), POINTER :: coretransp_in(:) !input CPO
24  TYPE (type_coretransp), POINTER :: coretransp_out(:) !output CPO
25  TYPE (type_coresource), POINTER :: coresource_in(:) !input CPO
26  TYPE (type_coresource), POINTER :: coresource_out(:) !output CPO
27  TYPE (type_coreimpur), POINTER :: coreimpur_in(:) !input CPO
28  TYPE (type_coreimpur), POINTER :: coreimpur_out(:) !output CPO
29  TYPE (type_coreneutrals), POINTER :: coreneutrals_in(:) !input CPO
30  TYPE (type_coreneutrals), POINTER :: coreneutrals_out(:) !output CPO
31  TYPE (type_neoclassic), POINTER :: neoclassic_in(:) !input CPO
32  TYPE (type_neoclassic), POINTER :: neoclassic_out(:) !output CPO
33 
34 
35 ! +++ Allocate output CPOs:
36  ALLOCATE(coreprof_out(1))
37  ALLOCATE(coretransp_out(1))
38  ALLOCATE(coresource_out(1))
39  ALLOCATE(coreimpur_out(1))
40  ALLOCATE(coreneutrals_out(1))
41  ALLOCATE(neoclassic_out(1))
42 
43 
44 ! +++ Copy input CPOs to output CPOs:
45  CALL copy_cpo(coreprof_in(1), coreprof_out(1))
46  CALL copy_cpo(coretransp_in(1), coretransp_out(1))
47  CALL copy_cpo(coresource_in(1), coresource_out(1))
48  CALL copy_cpo(coreimpur_in(1), coreimpur_out(1))
49  CALL copy_cpo(coreneutrals_in(1), coreneutrals_out(1))
50  CALL copy_cpo(neoclassic_in(1), neoclassic_out(1))
51 
52 
53 ! +++ Modify radii:
54  CALL changeradii(equilibrium_in, &
55  coreprof_out, &
56  coretransp_out, &
57  coresource_out, &
58  coreimpur_out, &
59  coreneutrals_out, &
60  neoclassic_out)
61 
62  RETURN
63 
64  END SUBROUTINE fc2k_changeradii
65 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
66 ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +
67 
68 
69 
70 
71 
72 
73 
convert::changeradii
subroutine changeradii(EQUILIBRIUM, COREPROF, CORETRANSP, CORESOURCE, COREIMPUR, CORENEUTRALS, NEOCLASSIC)
Definition: convert.f90:1013
fc2k_changeradii
subroutine fc2k_changeradii(EQUILIBRIUM_IN, COREPROF_IN, COREPROF_OUT, CORETRANSP_IN, CORETRANSP_OUT, CORESOURCE_IN, CORESOURCE_OUT, COREIMPUR_IN, COREIMPUR_OUT, CORENEUTRALS_IN, CORENEUTRALS_OUT, NEOCLASSIC_IN, NEOCLASSIC_OUT)
Definition: fc2k_changeradii.f90:3
convert
Module converts to/from CPOs to ETS types.
Definition: convert.f90:8