IO: Make sure bounds have the same domensions while stored and read.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-05-13 06:49:53 -03:00
parent ca3580e2ec
commit 97e572ec94

View File

@ -2027,7 +2027,7 @@ module io
! prepare and store metablocks
!
allocate(fields(nm,14), children(nm,nc), bounds(nm,3,2), &
allocate(fields(nm,14), children(nm,nc), bounds(nm,NDIMS,2), &
#if NDIMS == 3
faces(nm,NDIMS,ns,ns,ns), &
edges(nm,NDIMS,ns,ns,ns), corners(nm,ns,ns,ns), &