diff options
| author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-05-14 15:30:14 +0000 |
|---|---|---|
| committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-05-14 15:30:14 +0000 |
| commit | bb568eb19331f243f79abc3a5b3e9331959c8773 (patch) | |
| tree | b366090b0f88df62346ab6fc1e337fe281ce1707 | |
| parent | f7c07e67f281cd2160ac1a6e3ba8330877d109dc (diff) | |
Add a deallocate statement for the local allocatable arrays in case we
encounter a F90 only compiler.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@84 f69c4107-0314-4c4f-9ad4-17e986b73f4a
| -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 |