diff options
Diffstat (limited to 'src/D3_to_D2_int.F')
-rw-r--r-- | src/D3_to_D2_int.F | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/src/D3_to_D2_int.F b/src/D3_to_D2_int.F index db013a2..4aeef0a 100644 --- a/src/D3_to_D2_int.F +++ b/src/D3_to_D2_int.F @@ -11,7 +11,7 @@ c ------------------------------------------------------------------ & 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, + & x,y,z,eta,Nt,Np,nx,ny,nz,theta,phi,Psis,g00s,gxxs,gxys, & gxzs,gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,dgyys,dgyzs, & dgzzs,ADMmass_int1,ADMmass_int2, & momentum_int1,momentum_int2,momentum_int3, @@ -22,26 +22,30 @@ c ------------------------------------------------------------------ INTEGER,INTENT(IN) :: & conformal_state,myproc,Psi_power CCTK_INT, INTENT(IN) :: - & Nt,Np,do_momentum,do_spin,interpolation_order - INTEGER :: - & do_ADMmass(2) + & Nt,Np,nx,ny,nz,do_momentum,do_spin,interpolation_order CCTK_REAL,INTENT(IN) :: & origin(3),Dx,Dy,Dz,eta - CCTK_REAL,INTENT(IN),DIMENSION(:,:,:) :: + CCTK_REAL,INTENT(IN),DIMENSION(Nt) :: theta + CCTK_REAL,INTENT(IN),DIMENSION(Np) :: phi + CCTK_REAL,INTENT(IN),DIMENSION(nx) :: x + CCTK_REAL,INTENT(IN),DIMENSION(ny) :: y + CCTK_REAL,INTENT(IN),DIMENSION(nz) :: z + CCTK_REAL,INTENT(IN),DIMENSION(nx,ny,nz) :: & Psi,g00,gxx,gxy,gxz,gyy,gyz,gzz, & hxx,hxy,hxz,hyy,hyz,hzz - CCTK_REAL,INTENT(IN),DIMENSION(:) :: - & x,y,z,theta,phi - CCTK_REAL,INTENT(OUT),DIMENSION(:,:) :: - & Psis,g00s,gxxs,gxys,gxzs,gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs, - & dgyys,dgyzs,dgzzs,ADMmass_int1,ADMmass_int2, - & momentum_int1,momentum_int2,momentum_int3, - & spin_int1,spin_int2,spin_int3 - CCTK_REAL,INTENT(INOUT),DIMENSION(:,:,:) :: - & Extract_temp3d + INTEGER,INTENT(IN) :: do_ADMmass(2) CCTK_STRING,INTENT(IN) :: & interpolation_operator + CCTK_REAL,INTENT(INOUT),DIMENSION(nx,ny,nz) :: + & Extract_temp3d + + CCTK_REAL,INTENT(OUT),DIMENSION(Nt,Np) :: + & Psis,g00s,gxxs,gxys,gxzs,gyys, + & gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,dgyys,dgyzs,dgzzs, + & ADMmass_int1,ADMmass_int2, + & momentum_int1,momentum_int2,momentum_int3, + & spin_int1,spin_int2,spin_int3 END SUBROUTINE END INTERFACE |