From 97e572ec94978b1f110f7f8f2a4d8fced4a323be Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Wed, 13 May 2020 06:49:53 -0300 Subject: [PATCH] IO: Make sure bounds have the same domensions while stored and read. Signed-off-by: Grzegorz Kowal --- sources/io.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sources/io.F90 b/sources/io.F90 index 79a70c6..26a869e 100644 --- a/sources/io.F90 +++ b/sources/io.F90 @@ -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), &