Update smash/fcore/operator/md_gr_operator.f90

Co-authored-by: Ngo Nghi Truyen Huynh <[email protected]>
DassHydro · Sep 18, 2024 · 4c28cd9 · 4c28cd9
1 parent 56c5b6d
commit 4c28cd9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/smash/fcore/operator/md_gr_operator.f90 b/smash/fcore/operator/md_gr_operator.f90
@@ -449,7 +449,7 @@ subroutine gr4_ri_time_step(setup, mesh, input_data, options, returns, time_step
         beta = (9._sp/4._sp)*(86400._sp/setup%dt)**0.25_sp
 #ifdef _OPENMP
         !$OMP parallel do schedule(static) num_threads(options%comm%ncpu) &
-        !$OMP& shared(setup, mesh, ac_prcp, ac_pet, ac_ci, ac_cp, beta, ac_ct, ac_kexc, ac_hi, ac_hp, ac_ht, &
+        !$OMP& shared(setup, mesh, returns, ac_prcp, ac_pet, ac_ci, ac_cp, beta, ac_ct, ac_kexc, ac_hi, ac_hp, ac_ht, &
         !$OMP& ac_qt) &
         !$OMP& private(row, col, k, time_step_returns, pn, en, pr, perc, l, prr, prd, qr, qd, split)
 #endif