destroy_scheme Subroutine

  1. weno_NM.f90
  2. weno_NM
  3. destroy_scheme

public subroutine destroy_scheme()

Deallocate all the array used

Arguments

None

Calls

proc~~destroy_scheme~9~~CallsGraph proc~destroy_scheme~9 destroy_scheme interface~dealloc dealloc proc~destroy_scheme~9->interface~dealloc proc~dmsg dmsg proc~destroy_scheme~9->proc~dmsg 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

Contents

Source Code

destroy_scheme

Source Code

        subroutine destroy_scheme()
          !< Deallocate all the array used 

            implicit none

            call dmsg(1, 'weno_NM', 'destroy_weno_NM')

            call dealloc(x_qp_left)
            call dealloc(x_qp_right)
            call dealloc(y_qp_left)
            call dealloc(y_qp_right)
            call dealloc(z_qp_left)
            call dealloc(z_qp_right)

        end subroutine destroy_scheme