From 1076cf778dcd02f8e3a9cd16e3736acace584218 Mon Sep 17 00:00:00 2001 From: shoyokota <103961291+shoyokota@users.noreply.github.com> Date: Wed, 29 Nov 2023 01:37:13 +0900 Subject: [PATCH] Fix bugs with undefined variable and thread safety in intrad.f90 (#659) Co-authored-by: Sho Yokota --- src/gsi/intrad.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/gsi/intrad.f90 b/src/gsi/intrad.f90 index 19bb400034..b062ec953a 100644 --- 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