Increase MAXSUM parameter so orog code will work with C12.

Fixes ufs-community#1000.
GeorgeGayno-NOAA · Nov 22, 2024 · 4612227 · 4612227
1 parent 20d3b1e
commit 4612227
Showing 1 changed file with 3 additions and 3 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
@@ -547,7 +547,7 @@ SUBROUTINE MAKEMT2(ZAVG,ZSLM,ORO,SLM,VAR,VAR4, &
       real, intent(out)         :: oro(im,jm)
       real, intent(out)         :: var(im,jm),var4(im,jm)
 
-      integer, parameter        :: MAXSUM=20000000
+      integer, parameter        :: MAXSUM=65000000
       real, parameter           :: D2R = 3.14159265358979/180.
 
       real, dimension(:), allocatable ::  hgt_1d, hgt_1d_all
@@ -637,7 +637,7 @@ SUBROUTINE MAKEMT2(ZAVG,ZSLM,ORO,SLM,VAR,VAR4, &
             nsum_all = nsum_all+1
             if(nsum_all > MAXSUM) then
               print*, "FATAL ERROR: nsum_all is greater than MAXSUM,"
-              print*, "increase MAXSUM."
+              print*, "increase MAXSUM.", jst,jen
               call ABORT()
             endif
             hgt_1d_all(nsum_all) = HEIGHT_ALL
@@ -656,7 +656,7 @@ SUBROUTINE MAKEMT2(ZAVG,ZSLM,ORO,SLM,VAR,VAR4, &
                nsum = nsum+1
                if(nsum > MAXSUM) then
                  print*, "FATAL ERROR: nsum is greater than MAXSUM,"
-                 print*, "increase MAXSUM."
+                 print*, "increase MAXSUM.", jst,jen
                  call ABORT()
                endif
                hgt_1d(nsum) = HEIGHT