Skip to content

Commit 31f8cd2

Browse files
author
Tanush Prathi
committed
Chemistry variable was not autoprivatized
1 parent 6ca7604 commit 31f8cd2

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/common/m_chemistry.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -129,7 +129,7 @@ contains
129129
real(wp), dimension(num_species) :: Ys
130130
real(wp), dimension(num_species) :: omega
131131

132-
#:call GPU_PARALLEL_LOOP(collapse=3, private='[Ys, omega]')
132+
#:call GPU_PARALLEL_LOOP(collapse=3, private='[Ys, omega, T]')
133133
do z = bounds(3)%beg, bounds(3)%end
134134
do y = bounds(2)%beg, bounds(2)%end
135135
do x = bounds(1)%beg, bounds(1)%end

src/common/m_variables_conversion.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -873,7 +873,7 @@ contains
873873
end if
874874
#:endif
875875

876-
#:call GPU_PARALLEL_LOOP(collapse=3, private='[alpha_K, alpha_rho_K, Re_K, nRtmp, rho_K, gamma_K, pi_inf_K,qv_K, dyn_pres_K, rhoYks, B]')
876+
#:call GPU_PARALLEL_LOOP(collapse=3, private='[alpha_K, alpha_rho_K, Re_K, nRtmp, rho_K, gamma_K, pi_inf_K,qv_K, dyn_pres_K, rhoYks, B, T]')
877877
do l = ibounds(3)%beg, ibounds(3)%end
878878
do k = ibounds(2)%beg, ibounds(2)%end
879879
do j = ibounds(1)%beg, ibounds(1)%end

0 commit comments

Comments
 (0)