From c9ce8d2c5279acb60f35759d8cb4ce77a5411d6a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 22 Nov 2013 10:31:52 +0000 Subject: [PATCH] some improvements on HDF5 test, polishing math --- code/math.f90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/math.f90 b/code/math.f90 index de55c6d0f..dc6ad933e 100644 --- a/code/math.f90 +++ b/code/math.f90 @@ -2818,6 +2818,7 @@ end function math_rotate_forward3333 #ifdef Spectral !-------------------------------------------------------------------------------------------------- !> @brief calculates curl field using differentation in Fourier space +!> @todo enable odd resolution !-------------------------------------------------------------------------------------------------- function math_curlFFT(geomdim,field) use IO, only: & @@ -2951,6 +2952,7 @@ end function math_curlFFT !-------------------------------------------------------------------------------------------------- !> @brief calculates gradient field using differentation in Fourier space +!> @todo enable odd resolution !-------------------------------------------------------------------------------------------------- function math_gradFFT(geomdim,field) use IO, only: & @@ -3079,6 +3081,7 @@ end function math_gradFFT !-------------------------------------------------------------------------------------------------- !> @brief calculates divergence field using integration in Fourier space +!> @todo enable odd resolution !-------------------------------------------------------------------------------------------------- function math_divergenceFFT(geomdim,field) use IO, only: & @@ -3268,7 +3271,7 @@ function math_divergenceFDM(geomdim,order,field) contains !-------------------------------------------------------------------------------------------------- - !> @brief ! small helper functions for indexing CAREFUL, index and location runs from + !> @brief small helper functions for indexing. CAREFUL: index and location runs from ! 0 to N-1 (python style) !-------------------------------------------------------------------------------------------------- pure function periodic_location(idx,res) @@ -3284,7 +3287,7 @@ function math_divergenceFDM(geomdim,order,field) end function periodic_location !-------------------------------------------------------------------------------------------------- - !> @brief ! small helper functions for indexing CAREFUL, index and location runs from + !> @brief small helper functions for indexing CAREFUL: index and location runs from ! 0 to N-1 (python style) !-------------------------------------------------------------------------------------------------- integer(pInt) pure function periodic_index(location,res)