added ii in declared private varialbe in one opm directive in intlimg

TingLei-daprediction · Mar 15, 2024 · 1739b80 · 1739b80
1 parent b97593a
commit 1739b80
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/gsi/intjcmod.f90 b/src/gsi/intjcmod.f90
@@ -103,7 +103,8 @@ subroutine intlimq(rval,sval,itbin)
   call gsi_bundlegetpointer(gsi_metguess_bundle(itbin),'q',ges_q_it,ier)
   if(ier/=0)return
 
-!$omp parallel do  schedule(dynamic,1) private(k,j,i,q)
+  #clt !$omp parallel do  schedule(dynamic,1) private(k,j,i,q)
+!$omp parallel do  schedule(dynamic,1) private(k,j,i,ii,q)
   do k = 1,nsig
      do j = 2,lon1+1
         do i = 2,lat1+1