diff options
Diffstat (limited to 'src/D3_extract.F')
| -rw-r--r-- | src/D3_extract.F | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/D3_extract.F b/src/D3_extract.F index 9f6fcad..47a7fb3 100644 --- a/src/D3_extract.F +++ b/src/D3_extract.F @@ -4,7 +4,7 @@ c ================================================================== SUBROUTINE D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin,igrid, - & origin,myproc,interpolation_order,Nt,Np,all_modes, + & origin,myproc,interpolation_operator,interpolation_order,Nt,Np,all_modes, & l,m,x,y,z,Dx,Dy,Dz,Psi_power,Psi, & g00,gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & eta,ADMmass,momentum,spin,mass,rsch,Qodd,Qeven,Extract_temp3d,dtaudt) @@ -85,6 +85,8 @@ c Input variables & x,y,z CCTK_REAL,INTENT(INOUT),DIMENSION(:,:,:) :: & Extract_temp3d + CCTK_STRING,INTENT(IN) :: + & interpolation_operator c Output variables CCTK_REAL,INTENT(OUT) :: @@ -162,7 +164,8 @@ c c ------------------------------------------------------------------ CALL D3_to_D2(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin, - & Psi_power,origin,myproc,interpolation_order,Dx,Dy,Dz,Psi, + & Psi_power,origin,myproc,interpolation_operator,interpolation_order, + & Dx,Dy,Dz,Psi, & g00,gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & x,y,z,eta,Nt,Np,theta,phi,Psis,g00s,gxxs,gxys,gxzs, & gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,dgyys,dgyzs,dgzzs, |