Fix bugs with undefined variable and thread safety in intrad.f90 (NOA…

…A-EMC#659) Co-authored-by: Sho Yokota <[email protected]>
wx20jjung · Nov 28, 2023 · 1076cf7 · 1076cf7
1 parent 47f35ee
commit 1076cf7
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/gsi/intrad.f90 b/src/gsi/intrad.f90
@@ -444,7 +444,8 @@ subroutine intrad_(radhead,rval,sval,rpred,spred)
         i4n(k) = i4n(k-1)+latlon11
      enddo
 
-!$omp parallel do schedule(dynamic,1) private(k,i1,i2,i3,i4,mm)
+     tdir=zero
+!$omp parallel do schedule(dynamic,1) private(k,i1,i2,i3,i4)
      do k=1,nsig
         i1 = i1n(k)
         i2 = i2n(k)
@@ -525,7 +526,7 @@ subroutine intrad_(radhead,rval,sval,rpred,spred)
         end do
      end if
 
-!$omp parallel do schedule(dynamic,1) private(nn,k,ncr1)
+!$omp parallel do schedule(dynamic,1) private(nn,k,ncr1,val_quad,mm)
      do nn=1,radptr%nchan
 
 !       include observation increment and lapse rate contributions to bias correction