surface_auxiliary.F90 coverage: 100.00 %func 100.00 %block
1) module Surface_Auxiliary_module
2)
3) use Surface_Global_Aux_module
4) ! use Surface_Flow_Aux_module
5) use Surface_TH_Aux_module
6)
7) use PFLOTRAN_Constants_module
8)
9) implicit none
10)
11) private
12)
13) #include "petsc/finclude/petscsys.h"
14)
15) type, public :: surface_auxiliary_type
16) type(surface_global_type), pointer :: SurfaceGlobal
17) type(surface_th_type), pointer :: SurfaceTH
18) end type surface_auxiliary_type
19)
20) public :: SurfaceAuxInit, &
21) SurfaceAuxDestroy
22)
23) contains
24)
25) ! ************************************************************************** !
26)
27) subroutine SurfaceAuxInit(surf_aux)
28) !
29) ! This routine initializes a surface-auxiliary object
30) !
31) ! Author: Gautam Bisht, LBNL
32) ! Date: 03/07/13
33) !
34)
35) implicit none
36)
37) type(surface_auxiliary_type) :: surf_aux
38)
39) nullify(surf_aux%SurfaceGlobal)
40) nullify(surf_aux%SurfaceTH)
41)
42) end subroutine SurfaceAuxInit
43)
44) ! ************************************************************************** !
45)
46) subroutine SurfaceAuxDestroy(surf_aux)
47) !
48) ! This routine deallocates pointers in a surface-auxiliary object
49) !
50) ! Author: Gautam Bisht, LBNL
51) ! Date: 03/07/13
52) !
53)
54) implicit none
55)
56) type(surface_auxiliary_type) :: surf_aux
57)
58) call SurfaceGlobalAuxDestroy(surf_aux%SurfaceGlobal)
59) call SurfaceTHAuxDestroy(surf_aux%SurfaceTH)
60)
61) nullify(surf_aux%SurfaceGlobal)
62) nullify(surf_aux%SurfaceTH)
63)
64) end subroutine SurfaceAuxDestroy
65)
66) end module Surface_Auxiliary_module