destroy_geometry Subroutine

  1. geometry.f90
  2. geometry
  3. destroy_geometry

public subroutine destroy_geometry()

Nullify all the face normal pionter

Arguments

None

Calls

proc~~destroy_geometry~~CallsGraph proc~destroy_geometry destroy_geometry proc~deallocate_memory~2 deallocate_memory proc~destroy_geometry->proc~deallocate_memory~2 proc~dmsg dmsg proc~destroy_geometry->proc~dmsg proc~deallocate_memory~2->proc~dmsg interface~dealloc dealloc proc~deallocate_memory~2->interface~dealloc proc~dealloc_rank2_real dealloc_rank2_real interface~dealloc->proc~dealloc_rank2_real proc~dealloc_rank4_real dealloc_rank4_real interface~dealloc->proc~dealloc_rank4_real proc~dealloc_rank1_integer dealloc_rank1_integer interface~dealloc->proc~dealloc_rank1_integer proc~dealloc_rank2_integer dealloc_rank2_integer interface~dealloc->proc~dealloc_rank2_integer proc~dealloc_rank1_real dealloc_rank1_real interface~dealloc->proc~dealloc_rank1_real proc~dealloc_rank3_integer dealloc_rank3_integer interface~dealloc->proc~dealloc_rank3_integer proc~dealloc_rank3_real dealloc_rank3_real interface~dealloc->proc~dealloc_rank3_real proc~dealloc_rank5_real dealloc_rank5_real interface~dealloc->proc~dealloc_rank5_real proc~dealloc_rank6_real dealloc_rank6_real interface~dealloc->proc~dealloc_rank6_real

Called by

proc~~destroy_geometry~~CalledByGraph proc~destroy_geometry destroy_geometry proc~destroy_all destroy_all proc~destroy_all->proc~destroy_geometry proc~destroy_solver destroy_solver proc~destroy_solver->proc~destroy_geometry proc~finish_run finish_run proc~finish_run->proc~destroy_solver proc~abort_run abort_run proc~abort_run->proc~destroy_solver program~main main program~main->proc~finish_run

Contents

Source Code

destroy_geometry

Source Code

        subroutine destroy_geometry()
          !< Nullify all the face normal pionter 

            implicit none
            
            call dmsg(1, 'geometry', 'destroy_geometry')

            nullify(xnx)
            nullify(xny)
            nullify(xnz)
            nullify(ynx)
            nullify(yny)
            nullify(ynz)
            nullify(znx)
            nullify(zny)
            nullify(znz)
            call deallocate_memory()

        end subroutine destroy_geometry