diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-05-06 12:43:53 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-05-06 12:43:53 +0000 |
commit | c2d3c6acd277523fd470f23820b6aac89367d99a (patch) | |
tree | fb46283f2b3e63f997103616c4e91d95dd5f96b7 | |
parent | 3a96118fe4662febfca7a3dcf6d1336a0f2dd237 (diff) |
Use IO::out_dir instead of the old IO::outdir parameter.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@300 89daf98e-ef62-4674-b946-b8ff9de2216c
-rw-r--r-- | param.ccl | 16 | ||||
-rw-r--r-- | src/AHFinder.F | 18 |
2 files changed, 15 insertions, 19 deletions
@@ -488,9 +488,7 @@ INT interpolation_order "Order for interpolation" STEERABLE = ALWAYS shares: IO -STRING outdir "" -{ -} +USES STRING out_dir ################# @@ -499,9 +497,9 @@ STRING outdir "" shares: grid -USES KEYWORD domain "" -USES KEYWORD quadrant_direction "" -USES KEYWORD bitant_plane "" +USES KEYWORD domain +USES KEYWORD quadrant_direction +USES KEYWORD bitant_plane #################### @@ -510,7 +508,7 @@ USES KEYWORD bitant_plane "" shares: admbase -USES KEYWORD metric_type "" +USES KEYWORD metric_type ###################### ### FROM SpaceMask ### @@ -518,6 +516,4 @@ USES KEYWORD metric_type "" shares: spacemask -USES BOOLEAN use_mask "" - - +USES BOOLEAN use_mask diff --git a/src/AHFinder.F b/src/AHFinder.F index c85dca7..6ff7401 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -170,7 +170,7 @@ ! ******************************************* ! *** FIND {xmn,xmx,ymn,ymx,zmn,zmx} *** ! ******************************************* - + call CCTK_CoordRange(ierr,cctkGH,xmn,xmx,-1,"x","cart3d") call CCTK_CoordRange(ierr,cctkGH,ymn,ymx,-1,"y","cart3d") call CCTK_CoordRange(ierr,cctkGH,zmn,zmx,-1,"z","cart3d") @@ -317,7 +317,7 @@ ! *** FIND OUT THE TYPE OF OUTPUT *** ! *************************************** - call CCTK_FortranString(nfile,outdir,filestr) + call CCTK_FortranString(nfile,out_dir,filestr) if (ahf_logfile.ne.0) then logfile = .true. logf = filestr(1:nfile)//"/ahf_logfile" @@ -344,7 +344,7 @@ guessverbose = .true. else guessverbose = .false. - end if + end if if (logfile.and.(myproc.eq.0)) then if (logfile) then @@ -372,7 +372,7 @@ xc = ahf_xc_0 yc = ahf_yc_0 zc = ahf_zc_0 - else if (mfind.eq.2) then + else if (mfind.eq.2) then xc = ahf_xc_1 yc = ahf_yc_1 zc = ahf_zc_1 @@ -467,7 +467,7 @@ else refz = .false. end if - + end if if (ahf_phi.eq.0) then @@ -703,7 +703,7 @@ if (find3) then if (mfind.eq.1) then r0 = ahf_r0_0 - else if (mfind.eq.2) then + else if (mfind.eq.2) then r0 = ahf_r0_1 else r0 = ahf_r0_2 @@ -927,7 +927,7 @@ ! ! 3) The integral of the square of the expansion at the surface ! must be smaller by a factor of "small2" than the same -! integral slightly outside and slightly inside. +! integral slightly outside and slightly inside. horizon = .true. @@ -1340,7 +1340,7 @@ write(1,*) 'No horizon found.' write(1,*) end if - + ! Close logfile write(*,*) @@ -1380,7 +1380,7 @@ write(1,*) 'No horizon found.' write(1,*) end if - + ! Close logfile write(*,*) |