diff options
Diffstat (limited to 'src/D3_extract_int.F')
-rw-r--r-- | src/D3_extract_int.F | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F index ce14b37..e00b321 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -9,7 +9,7 @@ c ------------------------------------------------------------------ SUBROUTINE D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin,igrid, & origin,myproc,interpolation_operator,interpolation_order, - & Nt,Np,all_modes,l,m,x,y,z,Dx,Dy,Dz,Psi_power,Psi, + & Nt,Np,nx,ny,nz,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) @@ -19,26 +19,28 @@ c ------------------------------------------------------------------ CCTK_POINTER :: cctkGH INTEGER,INTENT(IN) :: - & igrid,l,m,Psi_power,myproc + & conformal_state,igrid,l,m,Psi_power,myproc CCTK_INT,INTENT(IN) :: - & conformal_state,Nt,Np,all_modes,do_momentum,do_spin,interpolation_order + & Nt,Np,nx,ny,nz,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: & do_ADMmass(2) CCTK_REAL,INTENT(IN) :: & origin(3),Dx,Dy,Dz,eta - CCTK_REAL,INTENT(IN),DIMENSION(:) :: - & x,y,z - CCTK_REAL,INTENT(IN),DIMENSION(:,:,:) :: + 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(INOUT),DIMENSION(:,:,:) :: + CCTK_REAL,INTENT(IN),DIMENSION(nx) :: x + CCTK_REAL,INTENT(IN),DIMENSION(ny) :: y + CCTK_REAL,INTENT(IN),DIMENSION(nz) :: z + CCTK_REAL,INTENT(INOUT),DIMENSION(nx,ny,nz) :: & Extract_Temp3d - CCTK_REAL,INTENT(OUT) :: - & ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt, - & momentum(3),spin(3) CCTK_STRING,INTENT(IN) :: & interpolation_operator + CCTK_REAL,INTENT(OUT) :: + & ADMmass(2),mass,rsch,Qodd(:,2:,0:),Qeven(:,2:,0:),dtaudt, + & momentum(3),spin(3) + END SUBROUTINE |