diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-06-19 14:04:01 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-06-19 14:04:01 +0000 |
commit | 91cef16950abc8508421b44eb9e4a60c6a01dc99 (patch) | |
tree | 1a5b776c89ac71a0e94c0e7749bba84b1c7afe08 /src/AHFinder.F | |
parent | 1a44fe37c7dc943c780b64749d84cbdf4f3eedbd (diff) |
Saving 3D files now works.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@210 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder.F')
-rw-r--r-- | src/AHFinder.F | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index c2dfcbe..527f60f 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -1672,16 +1672,29 @@ . "ahfinder::ahf_exp3","IOFlexIO_2D","ahf_exp3") end if else - call CCTK_OutputVarAsByMethod(ierror,cctkGH, - . "ahfinder::ahfgrid","IOFlexIO_2D","ahfgrid") - call CCTK_OutputVarAsByMethod(ierror,cctkGH, - . "ahfinder::ahf_exp","IOFlexIO_2D","ahf_exp") + call CCTK_OutputVarAsByMethod(ierror,cctkGH, + . "ahfinder::ahfgrid","IOFlexIO_2D","ahfgrid") + call CCTK_OutputVarAsByMethod(ierror,cctkGH, + . "ahfinder::ahf_exp","IOFlexIO_2D","ahf_exp") end if end if if (ahf_3Doutput.ne.0) then -! Not done yet! + if (find3) then + if (mfind.eq.3) then + call CCTK_OutputVarAsByMethod(ierror,cctkGH, + . "ahfinder::ahfgrid","IOFlexIO_3D","ahfgrid3") + call CCTK_OutputVarAsByMethod(ierror,cctkGH, + . "ahfinder::ahf_exp","IOFlexIO_3D","ahf_exp3") + end if + else + call CCTK_OutputVarAsByMethod(ierror,cctkGH, + . "ahfinder::ahfgrid","IOFlexIO_3D","ahfgrid") + call CCTK_OutputVarAsByMethod(ierror,cctkGH, + . "ahfinder::ahf_exp","IOFlexIO_3D","ahf_exp") + end if + end if |