diff options
-rw-r--r-- | src/RotatingDBHIVP.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index d176cd6..f5e1501 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -652,10 +652,10 @@ c c Compute eta,q,phi at the each points of cartesian grid c - eta = 0.5d0 * dlog (x**2 + y**2 + z**2) + eta = 0.5d0 * log (x**2 + y**2 + z**2) abseta = abs (eta) - q = datan2 (sqrt (x**2 + y**2), z) - phi = datan2 (y, x) + q = atan2 (sqrt (x**2 + y**2), z) + phi = atan2 (y, x) do k = 1,nz do j = 1,ny |