Remove deoptimizations, add Russ's fix. #447

DavidHuber-NOAA · Feb 16, 2023 · d266ddd · d266ddd
1 parent 3bf0c5c
commit d266ddd
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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
 !