diff --git a/src/define_ov.f90 b/src/define_ov.f90 index 6c0d7f6a022b6c406ac220725f9f483d5e8470b2..9c4f02069a52251a65d1f39cea832923c0c7ef3b 100644 --- a/src/define_ov.f90 +++ b/src/define_ov.f90 @@ -97,9 +97,9 @@ if (params%irestart.eq.0) then allocate (ov%wpreiso(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%wpreiso','define_ov',size(ov%wpreiso),'dp',+1) allocate (ov%temp(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%temp','define_ov',size(ov%temp),'dp',+1) ! Line below added by dwhipp - 12/09 - allocate (ov%pressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%pressure',define_ov',size(ov%pressure),'dp',+1) + allocate (ov%pressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%pressure','define_ov',size(ov%pressure),'dp',+1) ! Line below added by dwhipp - 12/09 - allocate (ov%spressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%spressure',define_ov',size(ov%spressure),'dp',+1) + allocate (ov%spressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%spressure','define_ov',size(ov%spressure),'dp',+1) allocate (ov%temporary_nodal_pressure(ov%nnode),stat=threadinfo%err) call heap (threadinfo,'ov%temporary_nodal_pressure','define_ov',size(ov%temporary_nodal_pressure),'dp',+1)