diff options
| author | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-05 17:00:39 +0000 |
|---|---|---|
| committer | lanfer <lanfer@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-05 17:00:39 +0000 |
| commit | 0c2c54f6c302760a7a34f791fedc748ff89a5c27 (patch) | |
| tree | 3a87046ff32419fe9f894424e1a943ad11e5bbbc | |
| parent | 18ae5f21a038d8607cee600b605de74ea9c8da7b (diff) | |
turning on output
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@34 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder.F | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index d55eef1..b3929e3 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -4,6 +4,7 @@ c @date April 1998 c @author Miguel Alcubierre c @desc c Find an apparent horizon. +c Cactus4 by Lars Nerger / Gerd Lanfermann c @enddesc c@@*/ @@ -1187,10 +1188,10 @@ c@@*/ ! *** WRITE DATA FILES *** ! **************************** - if (.false.) then + if (.true.) then if (myproc.eq.0) then c Expansion coefficients. - + if (ahf_ncall.eq.1) then open(1,file=almf,form='formatted', . status='replace') |