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

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