Remove unneeded 'if' statement from 'qc_orog_by_ramp'.

Fixes ufs-community#1000.
GeorgeGayno-NOAA · Jan 10, 2025 · 92b232a · 92b232a
1 parent 2dc24d6
commit 92b232a
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/sorc/orog_mask_tools.fd/orog.fd/io_utils.F90 b/sorc/orog_mask_tools.fd/orog.fd/io_utils.F90
@@ -708,11 +708,9 @@ subroutine qc_orog_by_ramp(imn, jmn, zavg, zslm)
 
  do j = 1, jramp
  do i = 1, IMN
-   if( GICE(i,j) .ne. -99. .and.  GICE(i,j) .ne. -1.0 ) then
-     if ( GICE(i,j) .gt. 0.) then
-       ZAVG(i,j) = int( GICE(i,j) + 0.5 )
-       ZSLM(i,j) = 1
-     endif
+   if ( GICE(i,j) .gt. 0.) then
+     ZAVG(i,j) = int( GICE(i,j) + 0.5 )
+     ZSLM(i,j) = 1
    endif
  enddo
  enddo