diff options
| -rw-r--r-- | src/set_norm_mask.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/set_norm_mask.F90 b/src/set_norm_mask.F90 index 3c892f0..267d7f8 100644 --- a/src/set_norm_mask.F90 +++ b/src/set_norm_mask.F90 @@ -86,6 +86,7 @@ subroutine SBP_SetNormMask (CCTK_ARGUMENTS) if (onesided(6)/=0) mask_z(nk:nk-np+1:-1) = bmask(1:np) nmask = outer_prod_3d ( mask_x, mask_y, mask_z ) + deallocate ( mask_x, mask_y, mask_z ) else nmask = 1.0_wp end if |