GitHub Issue NOAA-EMC#658 Issues of undefined values and thread safet…

…y in intrad.f90
shoyokota · Nov 27, 2023 · 3f32bb8 · 3f32bb8
1 parent 47f35ee
commit 3f32bb8
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