diff options
Diffstat (limited to 'src/Extract.F')
| -rw-r--r-- | src/Extract.F | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Extract.F b/src/Extract.F index 1ea5e86..ace99fb 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -378,7 +378,8 @@ c Do extraction at each radius extract_at_each_radius: DO WHILE (radius < r2) CALL D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin, - & igrid,orig,myproc,interpolation_order,Nt,Np,all_modes,lmode, + & igrid,orig,myproc,interpolation_operator,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 +550,8 @@ c Cannot use the conformal equation for ADM mass now END IF CALL D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin, - & igrid,orig,myproc,interpolation_order,Nt,Np,all_modes, + & igrid,orig,myproc,interpolation_operator,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, |