diff options
| author | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-02-08 02:54:56 +0000 |
|---|---|---|
| committer | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-02-08 02:54:56 +0000 |
| commit | 30a24b5a6b572257327c01d3c5ab577d4669722b (patch) | |
| tree | e5093377a4831e46ae20ccbc02f4638a6bca5496 /src | |
| parent | 4a7d93c3cf6d52f4245a57550578b64a70dc79b2 (diff) | |
The routine AHFinder_InitOutput (scheduled at CCTK_INITIAL) was using myproc
before it was assigned a value in the routine AHFinder (scheduled at
CCTK_ANALYSIS) leading to (on seaborg) that all processors attempted
to create files. This worked sometimes on few processors, but failed
on many processors. This assignment is now done in AHFinder_InitOutput.
I have no idea why this became a problem now. In the past I have been
able to run the AHFinder on seaborg.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@330 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
| -rw-r--r-- | src/AHFinder_output.F | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index 1369dcb..58bbbec 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -16,6 +16,7 @@ implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_FUNCTIONS character(len=3) :: ext character(len=200) :: almf,areaf,massf,radf,circeqf,merip1f,merip2f @@ -23,6 +24,7 @@ character(len=200) :: disf character(len=200) :: gaussf, gauss0f, gauss1f, gauss2f + myproc = CCTK_MyProc(cctkGH) if (myproc.ne.0) then return end if @@ -77,10 +79,6 @@ c some compilers cannot trim an empty string, so we add at least one char write(11,"(A27)") '" Length of meridian, phi=0' close(11) - open(11,file=merip1f,form='formatted',status='replace') - write(11,"(A27)") '" Length of meridian, phi=0' - close(11) - open(11,file=merip2f,form='formatted',status='replace') write(11,"(A30)") '" Length of meridian, phi=pi/2' close(11) |