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

generated by
Intel(R) C++/Fortran Compiler code-coverage tool
Web-Page Owner: Nobody