increasing the allocation size of for logistic variable

NCAR · Oct 1, 2020 · 4f150e9 · 4f150e9
1 parent 0f1dbe6
commit 4f150e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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