diff options
Diffstat (limited to 'src/D3_to_D2_int.F')
-rw-r--r-- | src/D3_to_D2_int.F | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/D3_to_D2_int.F b/src/D3_to_D2_int.F index 8ca896c..db013a2 100644 --- a/src/D3_to_D2_int.F +++ b/src/D3_to_D2_int.F @@ -8,7 +8,8 @@ c ------------------------------------------------------------------ INTERFACE SUBROUTINE 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, @@ -38,6 +39,9 @@ c ------------------------------------------------------------------ & spin_int1,spin_int2,spin_int3 CCTK_REAL,INTENT(INOUT),DIMENSION(:,:,:) :: & Extract_temp3d + CCTK_STRING,INTENT(IN) :: + & interpolation_operator + END SUBROUTINE END INTERFACE |