This is a fix to a PR #1501 (github issue #1263).

I allocated the tmp_array to be too large and GNU compiler stopped with an array mismatch. Change this to be state%ncol in size, not pcol
E3SM-Project · May 10, 2017 · cf9e47a · cf9e47a
1 parent a8bc3b0
commit cf9e47a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/components/cam/src/physics/cam/clubb_intr.F90 b/components/cam/src/physics/cam/clubb_intr.F90
@@ -1147,7 +1147,7 @@ subroutine clubb_tend_cam( &
    real(r8) :: es(pcols,pver)
    real(r8) :: qs(pcols,pver)
    real(r8) :: gam(pcols,pver)
-   real(r8) :: tmp_array(pcols,pverp)
+   real(r8) :: tmp_array(state%ncol,pverp)
    real(r8) :: bfact, orgparam, delpavg
    character(len=6) :: choice_radf
 

diff --git a/components/cam/src/physics/cam/hetfrz_classnuc_cam.F90 b/components/cam/src/physics/cam/hetfrz_classnuc_cam.F90
@@ -729,7 +729,7 @@ subroutine hetfrz_classnuc_cam_calc( &
    real(r8) :: numice10s(pcols,pver)
    real(r8) :: numice10s_imm_dst(pcols,pver)
    real(r8) :: numice10s_imm_bc(pcols,pver)
-   real(r8) :: tmp_array(pcols,pver)
+   real(r8) :: tmp_array(state%ncol,pver)
 
    real(r8) :: na500(pcols,pver)
    real(r8) :: tot_na500(pcols,pver)