diff options
Diffstat (limited to 'src/D3_to_D2_int.F')
-rw-r--r-- | src/D3_to_D2_int.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/D3_to_D2_int.F b/src/D3_to_D2_int.F index 297e22e..8f19412 100644 --- a/src/D3_to_D2_int.F +++ b/src/D3_to_D2_int.F @@ -8,7 +8,7 @@ c ------------------------------------------------------------------ INTERFACE SUBROUTINE D3_to_D2(cctkGH,do_ADMmass,do_momentum,do_spin, - & Psi_power,origin,myproc,Dx,Dy,Dz,Psi, + & Psi_power,origin,myproc,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, @@ -21,7 +21,7 @@ c ------------------------------------------------------------------ INTEGER,INTENT(IN) :: & myproc,Psi_power CCTK_INT, INTENT(IN) :: - & Nt,Np,do_momentum,do_spin + & Nt,Np,do_momentum,do_spin,interpolation_order INTEGER :: & do_ADMmass(2) CCTK_REAL,INTENT(IN) :: |