diff --git a/sorc/ncep_post.fd/CLDRAD.f b/sorc/ncep_post.fd/CLDRAD.f
index 938a8c143..d6b04ff77 100644
--- a/sorc/ncep_post.fd/CLDRAD.f
+++ b/sorc/ncep_post.fd/CLDRAD.f
@@ -89,6 +89,7 @@
 !>                                |    logic, rather than a dedicated parameter number.
 !> 2025-05-05 | Ben Blake         | Add sanity checks for RRFSv1 implementation
 !> 2025-05-08 | Jaymes Kenyon     | For FV3 and MPAS applications, prevent cloud base from being diagnosed as below ground
+!> 2026-01-14 | Nick Szapiro       | Fixes for thread safe
 !>
 !> @author Russ Treadon W/NP2 @date 1993-08-30
 !---------------------------------------------------------------------------------
@@ -3813,7 +3814,7 @@ SUBROUTINE CLDRAD
 !     CURRENT OUTGOING SW RADIATION AT THE SURFACE.
       IF (IGET(141)>0) THEN
         GRID1 = spval
-!$omp parallel do private(i,j)
+!$omp parallel do private(i,j,FACTRS)
         DO J=JSTA,JEND
           DO I=ISTA,IEND
             IF(RSWOUT(I,J)<SPVAL) THEN
@@ -3936,7 +3937,7 @@ SUBROUTINE CLDRAD
 !     CURRENT (instantaneous) INCOMING CLEARSKY SW RADIATION AT THE SURFACE.
       IF (IGET(262)>0) THEN
          GRID1 = spval
-!$omp parallel do private(i,j)
+!$omp parallel do private(i,j,FACTRS)
          DO J=JSTA,JEND
            DO I=ISTA,IEND
             IF(RSWINC(I,J)<SPVAL) THEN
diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f
index 0b9c7c4d0..d1165f4c5 100644
--- a/sorc/ncep_post.fd/UPP_PHYSICS.f
+++ b/sorc/ncep_post.fd/UPP_PHYSICS.f
@@ -5016,6 +5016,7 @@ end subroutine calchipsi
 !> 2024-11-15 | Jesse Meng | Initial
 !> 2025-04-23 | Jesse Meng | Bug fix zmid calculation in very thin layers
 !> 2025-06-12 | Jesse Meng | Bug fix RH converted from decimal to percent. SLR masking procedure modified
+!> 2026-01-14 | Nick Szapiro | fix for thread safe
 !>
 !> @author Jesse Meng @date 2024-11-15
 
@@ -5154,7 +5155,7 @@ subroutine calslr_uutah2(slr)
 
       slr = spval
 
-!$omp parallel do private(i,j)      
+!$omp parallel do private(i,j,swnd)      
       do j=jsta,jend
       do i=ista,iend
       if(zsfc(i,j)<spval) then