diff options
| author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-08-14 07:35:42 +0000 |
|---|---|---|
| committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-08-14 07:35:42 +0000 |
| commit | 1a4da8b49d45b47a1b9b57bdb461b0a9f04dbaad (patch) | |
| tree | c54227c0318e5a568ad8ba9ae43d9e8884333bc1 /src/D3_to_D2.F | |
| parent | 12e0d4b8a274c8ddc3f159169e1e9d1f0a454359 (diff) | |
Extract works fully with physical metric ... still some testing to do.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@62 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/D3_to_D2.F')
| -rw-r--r-- | src/D3_to_D2.F | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 2948517..a7d22b2 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -288,7 +288,7 @@ c --------------------------------- CALL momentum_integrand3D(origin,Dx,Dy,Dz,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & Extract_temp3d,Psi,Psi_power) + & Extract_temp3d,Psi,Psi_power,conformal_state) CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, @@ -301,7 +301,7 @@ c --------------------------------- CALL momentum_integrand3D(origin,Dx,Dy,Dz,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & Extract_temp3d,Psi,Psi_power) + & Extract_temp3d,Psi,Psi_power,conformal_state) CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, @@ -315,7 +315,7 @@ c --------------------------------- CALL momentum_integrand3D(origin,Dx,Dy,Dz,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & Extract_temp3d,Psi,Psi_power) + & Extract_temp3d,Psi,Psi_power,conformal_state) CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, @@ -334,7 +334,7 @@ c ----------------------------- CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & Extract_temp3d,Psi,Psi_power) + & Extract_temp3d,Psi,Psi_power,conformal_state) CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, @@ -347,7 +347,7 @@ c ----------------------------- CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & Extract_temp3d,Psi,Psi_power) + & Extract_temp3d,Psi,Psi_power,conformal_state) CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, @@ -361,7 +361,7 @@ c ----------------------------- CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & Extract_temp3d,Psi,Psi_power) + & Extract_temp3d,Psi,Psi_power,conformal_state) CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps") call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, $ npoints, 1, 1, |