aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/D3_to_D2.F28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F
index ceb7217..111292c 100644
--- a/src/D3_to_D2.F
+++ b/src/D3_to_D2.F
@@ -161,7 +161,7 @@ c ------------------------------------------------------------
c Calculate radial derivatives and project onto sphere
c ----------------------------------------------------
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,Psi,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_VarIndex(in_array_indices(1), "extract::temp3d")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
@@ -173,7 +173,7 @@ c ----------------------------------------------------
$ CCTK_VARIABLE_REAL)
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxx,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -184,7 +184,7 @@ c ----------------------------------------------------
$ CCTK_VARIABLE_REAL)
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxy,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -195,7 +195,7 @@ c ----------------------------------------------------
$ CCTK_VARIABLE_REAL)
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gxz,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -206,7 +206,7 @@ c ----------------------------------------------------
$ CCTK_VARIABLE_REAL)
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gyy,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -217,7 +217,7 @@ c ----------------------------------------------------
$ CCTK_VARIABLE_REAL)
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gyz,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -228,7 +228,7 @@ c ----------------------------------------------------
$ CCTK_VARIABLE_REAL)
CALL met_rad_der(origin,Dx,Dy,Dz,x,y,z,gzz,Extract_temp3d)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -245,7 +245,7 @@ c Standard equation
IF (do_ADMmass(1)) THEN
CALL ADMmass_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy,
& gxz,gyy,gyz,gzz,Extract_temp3d,Psi,Psi_power)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -269,7 +269,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)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -282,7 +282,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)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -296,7 +296,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)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -315,7 +315,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)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -328,7 +328,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)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
@@ -342,7 +342,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)
- CALL CCTK_SyncGroup(cctkGH,"extract::temps")
+ CALL CCTK_SyncGroup(ierror,cctkGH,"extract::temps")
call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle,
$ npoints, 1, 1,
$ xs, ys, zs,
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-03 12:41:27 +0000