Skip to content

Commit 3a5278b

Browse files
committed
precheck
1 parent b26d89a commit 3a5278b

1 file changed

Lines changed: 2 additions & 1 deletion

File tree

src/simulation/m_data_output.fpp

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -196,7 +196,8 @@ contains
196196
Rc_min_loc = huge(1.0_wp)
197197
! Computing Stability Criteria at Current Time-step
198198
$:GPU_PARALLEL_LOOP(collapse=3, private='[j, k, l, vel, alpha, Re, rho, vel_sum, pres, gamma, pi_inf, c, H, qv, icfl, &
199-
& vcfl, Rc, ccfl, fl]', reduction='[[icfl_max_loc, vcfl_max_loc, ccfl_max_loc], [Rc_min_loc]]', reductionOp='[max, min]')
199+
& vcfl, Rc, ccfl, fl]', reduction='[[icfl_max_loc, vcfl_max_loc, ccfl_max_loc], [Rc_min_loc]]', &
200+
& reductionOp='[max, min]')
200201
do l = 0, p
201202
do k = 0, n
202203
do j = 0, m

0 commit comments

Comments
 (0)