From 53c574033a9b9ae4e66ca094e54ae867fb57c309 Mon Sep 17 00:00:00 2001 From: Tias Maiti Date: Tue, 18 Aug 2015 03:20:16 +0000 Subject: [PATCH] =?UTF-8?q?size=20of=20MAXCHUNKS=20same=20as=20maximum=20a?= =?UTF-8?q?llocated=20size=20for=20=E2=80=9Cheat=5Ftime=E2=80=9D=20&=20?= =?UTF-8?q?=E2=80=9Cheat=5Frate=E2=80=9D?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- code/source_thermal_externalheat.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/source_thermal_externalheat.f90 b/code/source_thermal_externalheat.f90 index af487e2a0..a74ceafe9 100644 --- a/code/source_thermal_externalheat.f90 +++ b/code/source_thermal_externalheat.f90 @@ -81,7 +81,7 @@ subroutine source_thermal_externalheat_init(fileUnit) implicit none integer(pInt), intent(in) :: fileUnit - integer(pInt), parameter :: MAXNCHUNKS = 7_pInt + integer(pInt), parameter :: MAXNCHUNKS = 1000_pInt integer(pInt), dimension(1+2*MAXNCHUNKS) :: positions integer(pInt) :: maxNinstance,phase,instance,source,sourceOffset integer(pInt) :: sizeState, sizeDotState, sizeDeltaState