add array bounds for initialization

E3SM-Project · Jan 6, 2025 · 2e7faf7 · 2e7faf7
1 parent 763d5be
commit 2e7faf7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/eam/src/physics/cam/zm_conv_intr.F90 b/components/eam/src/physics/cam/zm_conv_intr.F90
@@ -861,7 +861,7 @@ subroutine zm_conv_tend(pblh, mcon, cme, tpert, dlftot, pflx, zdu, &
                dnsf(pcols,pver), &
                wuc(pcols,pver)   )
    end if
-   wuc(:,:) = 0
+   wuc(1:pcols,1:pver) = 0
 
    call pbuf_get_field(pbuf, lambdadpcu_idx, lambdadpcu)
    call pbuf_get_field(pbuf, mudpcu_idx,     mudpcu)