auxiliary.F90 coverage: 100.00 %func 100.00 %block
1) module Auxiliary_module
2)
3) use Global_Aux_module
4) use TH_Aux_module
5) use Richards_Aux_module
6) use Reactive_Transport_Aux_module
7) use Mphase_Aux_module
8) use Immis_Aux_module
9) use Miscible_Aux_module
10) use Flash2_Aux_module
11) use General_Aux_module
12) use TOilIms_Aux_module
13) use Material_Aux_class
14) use Secondary_Continuum_Aux_module
15)
16) use PFLOTRAN_Constants_module
17)
18) implicit none
19)
20) private
21)
22) #include "petsc/finclude/petscsys.h"
23)
24) type, public :: auxiliary_type
25) type(global_type), pointer :: Global
26) type(reactive_transport_type), pointer :: RT
27) type(th_type), pointer :: TH
28) type(richards_type), pointer :: Richards
29) type(mphase_type), pointer :: Mphase
30) type(immis_type), pointer :: Immis
31) type(miscible_type), pointer :: Miscible
32) type(flash2_type), pointer :: Flash2
33) type(general_type), pointer :: General
34) type(toil_ims_type), pointer :: TOil_ims
35) type(material_type), pointer :: Material
36) type(sc_heat_type), pointer :: SC_heat
37) type(sc_rt_type), pointer :: SC_RT
38) end type auxiliary_type
39)
40) public :: AuxInit, &
41) AuxDestroy
42)
43) contains
44)
45) ! ************************************************************************** !
46)
47) subroutine AuxInit(aux)
48) !
49) ! Nullifies pointers in auxiliary object
50) !
51) ! Author: Glenn Hammond
52) ! Date: 04/09/08
53) !
54)
55) implicit none
56)
57) type(auxiliary_type) :: aux
58)
59) nullify(aux%Global)
60) nullify(aux%RT)
61) nullify(aux%TH)
62) nullify(aux%Richards)
63)
64) nullify(aux%Mphase)
65) nullify(aux%Immis)
66) nullify(aux%Flash2)
67) nullify(aux%Miscible)
68) nullify(aux%General)
69) nullify(aux%TOil_ims)
70) nullify(aux%Material)
71) nullify(aux%SC_heat)
72) nullify(aux%SC_RT)
73)
74) end subroutine AuxInit
75)
76) ! ************************************************************************** !
77)
78) subroutine AuxDestroy(aux)
79) !
80) ! Deallocates any allocated pointers in auxiliary object
81) !
82) ! Author: Glenn Hammond
83) ! Date: 04/09/08
84) !
85)
86) implicit none
87)
88) type(auxiliary_type) :: aux
89)
90) call GlobalAuxDestroy(aux%Global)
91) call RTAuxDestroy(aux%RT)
92) call THAuxDestroy(aux%TH)
93) call RichardsAuxDestroy(aux%Richards)
94) call MphaseAuxDestroy(aux%Mphase)
95) call MiscibleAuxDestroy(aux%Miscible)
96) call GeneralAuxDestroy(aux%General)
97) call TOilImsAuxDestroy(aux%TOil_ims)
98) call MaterialAuxDestroy(aux%Material)
99) call SecondaryAuxHeatDestroy(aux%SC_heat)
100) call SecondaryAuxRTDestroy(aux%SC_RT)
101) nullify(aux%Global)
102) nullify(aux%RT)
103) nullify(aux%Richards)
104) nullify(aux%Mphase)
105) nullify(aux%Immis)
106) nullify(aux%Miscible)
107) nullify(aux%General)
108) nullify(aux%TOil_ims)
109) nullify(aux%Material)
110) nullify(aux%SC_Heat)
111) nullify(aux%SC_RT)
112)
113) end subroutine AuxDestroy
114)
115) end module Auxiliary_module