From 46bcd68ab59078705cdaeca807ffc734e23aa065 Mon Sep 17 00:00:00 2001 From: diener Date: Fri, 21 Apr 2006 16:25:02 +0000 Subject: Fixed stupid mistake in having the assignment of stored coefficients and deallocation of the temporary array within the wrong if statement. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@67 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Dissipation_4_3_min_err_coeff_alt.F90 | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/src/Dissipation_4_3_min_err_coeff_alt.F90 b/src/Dissipation_4_3_min_err_coeff_alt.F90 index 3310704..d40ff67 100644 --- a/src/Dissipation_4_3_min_err_coeff_alt.F90 +++ b/src/Dissipation_4_3_min_err_coeff_alt.F90 @@ -252,15 +252,15 @@ subroutine dissipation_4_3_alt (var, lsh, gsh, lbnd, bb, gsize, & atmp(jl:nj,center+1:nj) = tmp(jl:nj,center+1:nj) - allocate ( ycoeff(patch)%coeff(nj,nj) ) + end if - ycoeff(patch)%coeff = atmp + allocate ( ycoeff(patch)%coeff(nj,nj) ) - savedy(patch) = .true. + ycoeff(patch)%coeff = atmp - deallocate ( atmp, d, b, h, tmp ) + savedy(patch) = .true. - end if + deallocate ( atmp, d, b, h, tmp ) end if @@ -416,15 +416,15 @@ subroutine dissipation_4_3_alt (var, lsh, gsh, lbnd, bb, gsize, & atmp(kl:nk,center+1:nk) = tmp(kl:nk,center+1:nk) - allocate ( zcoeff(patch)%coeff(nk,nk) ) + end if - zcoeff(patch)%coeff = atmp + allocate ( zcoeff(patch)%coeff(nk,nk) ) - savedz(patch) = .true. + zcoeff(patch)%coeff = atmp - deallocate ( atmp, d, b, h, tmp ) + savedz(patch) = .true. - end if + deallocate ( atmp, d, b, h, tmp ) end if -- cgit v1.2.3