[cig-commits] [commit] Hiro_latest: Fix missing private parameter for OpenMP (c5d8e20)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

On branch  : Hiro_latest
Link       : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce

>---------------------------------------------------------------

commit c5d8e200e5639252604bd5b14a16212d711a074a
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Wed Nov 13 10:24:17 2013 -0800

    Fix missing private parameter for OpenMP


>---------------------------------------------------------------

c5d8e200e5639252604bd5b14a16212d711a074a
 .../PARALLEL_src/SPH_SHELL_src/legendre_fwd_trans_krin.f90              | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_fwd_trans_krin.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_fwd_trans_krin.f90
index 51caf2c..84ea88e 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_fwd_trans_krin.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_fwd_trans_krin.f90
@@ -111,7 +111,7 @@
 !
 !
       nb_nri = nb*nidx_rlm(1)
-!$omp parallel do private(j_rlm,kr_nd,ip_rtm_1,mst,med,l_rtm)
+!$omp parallel do private(j_rlm,kr_nd,ip_rtm_1,mst,med,l_rtm,pwt_tmp)
       do mp_rlm = 1, nidx_rtm(3)
         mst = lstack_rlm(mp_rlm-1)+1
         med = lstack_rlm(mp_rlm)