diff options
author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-02-15 14:42:30 +0000 |
---|---|---|
committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-02-15 14:42:30 +0000 |
commit | 33c044d74e13ff89da64e278d5f099fc380fe12f (patch) | |
tree | 920d2ba7205cdba7e2388ac47c5d0b04f58d99dc /src/Extract.F | |
parent | 9bd4b3ea3155ba07a27a2bfb68ed8d557caf6f88 (diff) |
Use the new interpolation flesh API routines and call the new interpolation
operators from PUGHInterp (according to the setting of the
Extract::interpolation_order parameter).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@37 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/Extract.F')
-rw-r--r-- | src/Extract.F | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Extract.F b/src/Extract.F index d760596..49d0ba9 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -378,7 +378,7 @@ c Do extraction at each radius extract_at_each_radius: DO WHILE (radius < r2) CALL D3_extract(cctkGH,do_ADMmass,do_momentum,do_spin, - & igrid,orig,myproc,Nt,Np,all_modes,lmode, + & igrid,orig,myproc,interpolation_order,Nt,Np,all_modes,lmode, & mmode,x_1d,y_1d,z_1d,Dx,Dy,Dz,Psi_power,Psi,g00, & gxx,gxy,gxz,gyy,gyz,gzz,kxx,kxy,kxz,kyy,kyz,kzz, & radius,ADMmass,momentum,spin,mass,rsch, @@ -549,7 +549,8 @@ c Cannot use the conformal equation for ADM mass now END IF CALL D3_extract(cctkGH,do_ADMmass,do_momentum,do_spin, - & igrid,orig,myproc,Nt,Np,all_modes,lmode,mmode,x_1d,y_1d,z_1d, + & igrid,orig,myproc,interpolation_order,Nt,Np,all_modes, + & lmode,mmode,x_1d,y_1d,z_1d, & Dx,Dy,Dz,Psi_power,Psi,g00,gxx,gxy,gxz,gyy,gyz,gzz,kxx,kxy,kxz, & kyy,kyz,kzz,radius,ADMmass,momentum,spin,mass,rsch, & Qodd,Qeven,temp3d,dtaudt) |