dealloc_subnode Subroutine

public subroutine dealloc_subnode(jgrid)

Uses

  • proc~~dealloc_subnode~~UsesGraph proc~dealloc_subnode dealloc_subnode module~mod_global_parameters mod_global_parameters proc~dealloc_subnode->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: jgrid

Calls

proc~~dealloc_subnode~~CallsGraph proc~dealloc_subnode dealloc_subnode proc~mpistop mpistop proc~dealloc_subnode->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~dealloc_subnode~~CalledByGraph proc~dealloc_subnode dealloc_subnode proc~put_collapse put_collapse proc~put_collapse->proc~dealloc_subnode proc~put_slice put_slice proc~put_slice->proc~dealloc_subnode proc~write_collapsed write_collapsed proc~write_collapsed->proc~put_collapse proc~write_slice write_slice proc~write_slice->proc~put_slice proc~saveamrfile saveamrfile proc~saveamrfile->proc~write_collapsed proc~saveamrfile->proc~write_slice proc~timeintegration timeintegration proc~timeintegration->proc~saveamrfile proc~main main proc~main->proc~timeintegration program~agile agile program~agile->proc~main

Source Code

  subroutine dealloc_subnode(jgrid)
    use mod_global_parameters
    integer, intent(in) :: jgrid

    if (jgrid==0) then
       call mpistop("trying to delete a non-existing grid in dealloc_subnode")
    end if

    deallocate(ps_sub(jgrid)%w,ps_sub(jgrid)%x,ps_sub(jgrid)%wC,&
       ps_sub(jgrid)%xC)

    ! reset the global node info:
    node_sub(:,jgrid)=0
    rnode_sub(:,jgrid)=zero

  end subroutine dealloc_subnode