deallocateBfaces Subroutine

public subroutine deallocateBfaces()

Uses

  • proc~~deallocatebfaces~~UsesGraph proc~deallocatebfaces deallocateBfaces module~mod_global_parameters mod_global_parameters proc~deallocatebfaces->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

None

Source Code

  subroutine deallocateBfaces
    use mod_global_parameters
    integer :: igrid, iigrid, iside

    do iigrid=1,igridstail; igrid=igrids(iigrid);
     do iside=1,2
        if (associated(pface(iside,1,igrid)%face)) then
          deallocate(pface(iside,1,igrid)%face)
        end if
      end do
     do iside=1,2
        if (associated(pface(iside,2,igrid)%face)) then
          deallocate(pface(iside,2,igrid)%face)
        end if
      end do
     do iside=1,2
        if (associated(pface(iside,3,igrid)%face)) then
          deallocate(pface(iside,3,igrid)%face)
        end if
      end do
    end do

  end subroutine deallocateBfaces