From be1c63e6b81603aec650b1e5181e22c6f4623868 Mon Sep 17 00:00:00 2001 From: Megha Sharma Date: Wed, 11 Dec 2024 16:45:47 +1100 Subject: [PATCH] (gr sink) nptmass added in shared due to OPENMP* error --- src/main/substepping.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/main/substepping.F90 b/src/main/substepping.F90 index 4ed81320c..1565570da 100644 --- a/src/main/substepping.F90 +++ b/src/main/substepping.F90 @@ -1316,7 +1316,7 @@ subroutine predict_gr_sink(xyzmh_ptmass,vxyz_ptmass,ntypes,pxyzu_ptmass,fext,fex !$omp parallel do default(none) & !$omp shared(xyzmh_ptmass,vxyz_ptmass,fext,iphase,ntypes,massoftype) & !$omp shared(maxphase,maxp,eos_vars) & - !$omp shared(dt,hdt,xtol,ptol) & + !$omp shared(dt,hdt,xtol,ptol,nptmass) & !$omp shared(ieos,pxyzu_ptmass,metrics,metricderivs,ien_type) & !$omp shared(dtsinksink,epot_sinksink,merge_ij,merge_n,dsdt_ptmass,iexternalforce,fext_sinks) & !$omp private(i,its,tempi,rhoi,hi,eni,uui,densi,xyzhi) &