resize_alloc_static.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	resize_storage (new_size, status)

Function/Subroutine Documentation

resize_storage()

subroutine resize_storage	(	integer, intent(in)	new_size,
		integer, intent(out)	status
	)

Definition at line 19 of file resize_alloc_static.f90.

References amr_module::memsize.

    
    use amr_module
    implicit none
    
    integer, intent(out) :: status
    integer, intent(in) :: new_size
    
    status = 1

    write(6,*) '*** Ran out of storage for AMR.  '
    write(6,*) '*** Increase memsize in init_alloc_static.f'
    write(6,*) '*** or switch to dynamic memory using init_alloc.f90'
    write(6,*) '*** Current memsize = ',memsize
    write(6,*) '*** Requested new_size = ',new_size
    stop
    
    return