diff --git a/src/gsi/gesinfo.F90 b/src/gsi/gesinfo.F90
index 85f6ec58b..792900b62 100644
--- a/src/gsi/gesinfo.F90
+++ b/src/gsi/gesinfo.F90
@@ -1,5 +1,4 @@
 subroutine gesinfo
-!DIR$ OPTIMIZE:0
 !$$$  subprogram documentation block
 !                .      .    .                                       .
 ! subprogram:  gesinfo                  get information from model guess files
diff --git a/src/gsi/read_files.f90 b/src/gsi/read_files.f90
index eef3fdab4..93ddd17bf 100644
--- a/src/gsi/read_files.f90
+++ b/src/gsi/read_files.f90
@@ -1,5 +1,4 @@
 subroutine read_files(mype)
-!DIR$ OPTIMIZE:0
 !$$$  subprogram documentation block
 !                .      .    .                                       .
 ! subprogram:    read_files       get info about atm & sfc guess files
diff --git a/src/gsi/setuprad.f90 b/src/gsi/setuprad.f90
index 4e9a6b8b0..022c0ff93 100644
--- a/src/gsi/setuprad.f90
+++ b/src/gsi/setuprad.f90
@@ -1,8 +1,4 @@
 module rad_setup
-! GSI fails to run using newer Intel compilers (i.e, Intel 2022)
-! with optimization: https://github.com/NOAA-EMC/GSI/issues/447
-! TODO:  Temporary until the root cause is identified and the issue mentioned above is resolved.
-!DIR$ OPTIMIZE:0 
   implicit none
   private
   public:: setup
@@ -555,10 +551,12 @@ subroutine setuprad(obsLL,odiagLL,lunin,mype,aivals,stats,nchanl,nreal,nobs,&
         end if
 
 !       Load channel numbers into local array based on satellite type
+        if (iuse_rad(j)==4) then
+           predx(:,j)=zero
+        endif
 
         ich(jc)=j
         do i=1,npred
-           if (iuse_rad(j)==4) predx(i,j)=zero
            predchan(i,jc)=predx(i,j)
         end do
 !