From 4c28cd907ebc91489a31222566d41014c2a21274 Mon Sep 17 00:00:00 2001
From: asjeb <151923475+asjeb@users.noreply.github.com>
Date: Wed, 18 Sep 2024 09:56:25 +0200
Subject: [PATCH] Update smash/fcore/operator/md_gr_operator.f90

Co-authored-by: Ngo Nghi Truyen Huynh <129378719+nghi-truyen@users.noreply.github.com>
---
 smash/fcore/operator/md_gr_operator.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/smash/fcore/operator/md_gr_operator.f90 b/smash/fcore/operator/md_gr_operator.f90
index 7634962f..17782e12 100644
--- 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