From 4f150e9d73c5dcfdb3c17a4313a523b828f57ac6 Mon Sep 17 00:00:00 2001 From: William Ryan Currier Date: Thu, 1 Oct 2020 17:07:30 -0600 Subject: [PATCH] increasing the allocation size of for logistic variable --- src/downscaling_stats/downscaling.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/downscaling_stats/downscaling.f90 b/src/downscaling_stats/downscaling.f90 index 4bf1ac5..17d58d6 100644 --- a/src/downscaling_stats/downscaling.f90 +++ b/src/downscaling_stats/downscaling.f90 @@ -1399,7 +1399,7 @@ subroutine allocate_data(output, n_obs_variables, noutput, nx, ny, n_atm_variabl else ! unfortunately logistic has to be allocated even if it is not used because it is indexed ! however, it does not need a complete time sequence because time is never indexed - allocate(output%variables(v)%logistic (2, nx, ny), stat=Mem_Error) + allocate(output%variables(v)%logistic (noutput, nx, ny), stat=Mem_Error) if (Mem_Error /= 0) call memory_error(Mem_Error, "out%variables(v)%logistic v="//trim(str(v)), [2,nx,ny]) endif