diff options
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) |