Skip to content

Commit 90192fb

Browse files
committed
Fixed fd_coeff bug
1 parent caa51db commit 90192fb

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/simulation/m_derived_variables.fpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -102,11 +102,11 @@ contains
102102
! Computing centered finite difference coefficients
103103
call s_compute_finite_difference_coefficients(m, x_cc, fd_coeff_x, buff_size, &
104104
fd_order, fd_number)
105-
$:GPU_UPDATE(device='[fd_coeff_z]')
105+
$:GPU_UPDATE(device='[fd_coeff_x]')
106106
if (n > 0) then
107107
call s_compute_finite_difference_coefficients(n, y_cc, fd_coeff_y, buff_size, &
108108
fd_order, fd_number)
109-
$:GPU_UPDATE(device='[fd_coeff_z]')
109+
$:GPU_UPDATE(device='[fd_coeff_y]')
110110
end if
111111
if (p > 0) then
112112
call s_compute_finite_difference_coefficients(p, z_cc, fd_coeff_z, buff_size, &

0 commit comments

Comments
 (0)