diff options
| author | diener <diener@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2002-01-16 18:46:31 +0000 |
|---|---|---|
| committer | diener <diener@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2002-01-16 18:46:31 +0000 |
| commit | 0104991f6c58e19f02bb65e07ce6d4eecf0f3889 (patch) | |
| tree | 83ca6d79c3a817ba86df959cb594fde68bdc2807 /src | |
| parent | c5651fbc152fd53a0c1aa649bab06e564ecbc6a1 (diff) | |
Added deallocation of aux for the part of the code executed when using
legoexcision. Otherwise the code died on the Hitachi the second time
the ADMConstraints were calculated. It didn't cause problems f.ex. with
the intel compilers.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@55 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
| -rw-r--r-- | src/ADMConstraints.F | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index a267bdc..5432913 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -250,6 +250,7 @@ c LegoExcision (must be done before symmetries are applied). . dirx,diry,dirz,nx,ny,nz,0.0D0) deallocate(dirx,diry,dirz) + deallocate(aux) #else call CCTK_WARN(0,"You have not compiled with LegoExcision") |