allocate_collapsed Subroutine

public subroutine allocate_collapsed(dir)

Uses

  • proc~~allocate_collapsed~~UsesGraph proc~allocate_collapsed allocate_collapsed module~mod_global_parameters mod_global_parameters proc~allocate_collapsed->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) :: dir

Calls

proc~~allocate_collapsed~~CallsGraph proc~allocate_collapsed allocate_collapsed proc~mpistop mpistop proc~allocate_collapsed->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~allocate_collapsed~~CalledByGraph proc~allocate_collapsed allocate_collapsed proc~put_collapse put_collapse proc~put_collapse->proc~allocate_collapsed proc~write_collapsed write_collapsed proc~write_collapsed->proc~put_collapse proc~saveamrfile saveamrfile proc~saveamrfile->proc~write_collapsed proc~timeintegration timeintegration proc~timeintegration->proc~saveamrfile proc~main main proc~main->proc~timeintegration program~agile agile program~agile->proc~main

Source Code

subroutine allocate_collapsed(dir)
use mod_global_parameters
integer, intent(in)                               :: dir
integer                                           :: dim1,dim2,dim3
integer                                           :: nx1,nx2,nx3
!-----------------------------------------------------------------------------
! allocate array for the collapsed data:
! number of cells per grid.
nx1=ixMhi1-ixMlo1+1;nx2=ixMhi2-ixMlo2+1;nx3=ixMhi3-ixMlo3+1;
dim1=ng1(1)*2**(collapselevel-1)*nx1
dim2=ng2(1)*2**(collapselevel-1)*nx2
dim3=ng3(1)*2**(collapselevel-1)*nx3

select case(dir)
case (1)
   allocate(collapsedData(dim2,dim3,nw+nwauxio))
case (2)
   allocate(collapsedData(dim1,dim3,nw+nwauxio))
case (3)
   allocate(collapsedData(dim1,dim2,nw+nwauxio))
case default
   call mpistop("slice direction not clear in allocate_collapsed")
end select



collapsedData = zero

end subroutine allocate_collapsed