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 /src/AHFinder.F | |
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
Diffstat (limited to 'src/AHFinder.F')
-rw-r--r-- | src/AHFinder.F | 18 |
1 files changed, 9 insertions, 9 deletions
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(*,*) |