From 20d3b1ebad49e27066d729aeca193396f00692b9 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Thu, 21 Nov 2024 20:23:04 +0000 Subject: [PATCH] Remove some unused logic from the orog program. Fixes #1000. --- sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F90 | 12 ------------ 1 file changed, 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 index d8e55c96a..1dee1dabd 100644 --- 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