From fb4aadbafa14b02a75d4bb087d7071726aa99dee Mon Sep 17 00:00:00 2001 From: Zhuowen Zhao Date: Fri, 29 Sep 2017 18:33:39 -0400 Subject: [PATCH] moved deltaState to group of contigous memory pointers --- src/prec.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/prec.f90 b/src/prec.f90 index 671e15990..44e9d7ac1 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -45,14 +45,14 @@ module prec sizePostResults = 0_pInt !< size of output data real(pReal), pointer, dimension(:), contiguous :: & atolState - real(pReal), pointer, dimension(:,:), contiguous :: & ! a pointer is needed here because we might point to state/doState. However, they will never point to something, but are rather allocated and, hence, contiguous + real(pReal), pointer, dimension(:,:), contiguous :: & ! a pointer is needed here because we might point to state/dot/deltaState. However, they will never point to something, but are rather allocated and, hence, contiguous state, & !< state - dotState, & !< state rate - state0 + state0, & !< state at beginning of increment + dotState, & !< rate of state change + deltaState !< increment of state change real(pReal), allocatable, dimension(:,:) :: & partionedState0, & subState0, & - deltaState, & previousDotState, & !< state rate of previous xxxx previousDotState2, & !< state rate two xxxx ago RK4dotState