diff options
Diffstat (limited to 'src/D3_extract_int.F')
| -rw-r--r-- | src/D3_extract_int.F | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F index 07d7dab..ce14b37 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -8,7 +8,7 @@ c ------------------------------------------------------------------ INTERFACE SUBROUTINE D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin,igrid, - & origin,myproc,interpolation_order, + & 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, @@ -36,6 +36,9 @@ c ------------------------------------------------------------------ CCTK_REAL,INTENT(OUT) :: & ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt, & momentum(3),spin(3) + CCTK_STRING,INTENT(IN) :: + & interpolation_operator + END SUBROUTINE |