Remove some unused logic from the orog program.

Fixes ufs-community#1000.
GeorgeGayno-NOAA · Nov 21, 2024 · 20d3b1e · 20d3b1e
1 parent 91c08f4
commit 20d3b1e
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F90 b/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F90
@@ -419,8 +419,6 @@ SUBROUTINE MAKE_MASK(zslm,slm,land_frac, &
       real,    intent(out)      :: slm(im,jm)
       real,    intent(out)      :: land_frac(im,jm)
 
-      integer, parameter        :: MAXSUM=20000000
-
       real, parameter           :: D2R = 3.14159265358979/180.
 
       integer  jst, jen
@@ -486,11 +484,6 @@ SUBROUTINE MAKE_MASK(zslm,slm,land_frac, &
             XWATR_ALL = XWATR_ALL + FLOAT(1-ZSLM(ii,jj))
             XNSUM_ALL = XNSUM_ALL + 1.
             nsum_all = nsum_all+1
-            if(nsum_all > MAXSUM) then
-              print*, "FATAL ERROR: nsum_all is greater than MAXSUM,"  
-              print*, "increase MAXSUM."
-              call ABORT()
-            endif
 
             if(inside_a_polygon(LONI*D2R,LATI*D2R,4, &
                 LONO_RAD,LATO_RAD))then
@@ -499,11 +492,6 @@ SUBROUTINE MAKE_MASK(zslm,slm,land_frac, &
                XWATR = XWATR + FLOAT(1-ZSLM(ii,jj))
                XNSUM = XNSUM + 1.
                nsum = nsum+1
-               if(nsum > MAXSUM) then
-                 print*, "FATAL ERROR: nsum is greater than MAXSUM,"
-                 print*, "increase MAXSUM."
-                 call ABORT()
-               endif
             endif
          enddo ; enddo