From ad32aa3ced888585efb0812bd34e546f579e01e7 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 20 Sep 2013 16:17:25 +0000 Subject: [PATCH] fixed calculation of CurlRMS when grid(1)==1 --- code/DAMASK_spectral_utilities.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/DAMASK_spectral_utilities.f90 b/code/DAMASK_spectral_utilities.f90 index 25bd09f5c..653f27b6a 100644 --- a/code/DAMASK_spectral_utilities.f90 +++ b/code/DAMASK_spectral_utilities.f90 @@ -690,7 +690,8 @@ real(pReal) function utilities_curlRMS() utilities_curlRMS = utilities_curlRMS + & 2.0_pReal*sum(real(curl_fourier)**2.0_pReal + aimag(curl_fourier)**2.0_pReal) enddo; enddo - utilities_curlRMS = sqrt(utilities_curlRMS) * wgt + utilities_curlRMS = sqrt(utilities_curlRMS) * wgt + if(grid(1) == 1_pInt) utilities_curlRMS = utilities_curlRMS * 0.5_pReal ! counted twice in case of grid(1) == 1 end function utilities_curlRMS