Add explicit init of clearsky heating

E3SM-Project · Jun 11, 2019 · c4ce81a · c4ce81a
1 parent 7a32d6b
commit c4ce81a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/components/cam/src/physics/rrtmgp/radiation.F90 b/components/cam/src/physics/rrtmgp/radiation.F90
@@ -1157,6 +1157,11 @@ subroutine radiation_tend(state,   ptend,    pbuf,          cam_out, cam_in,  &
       ! modified in this routine.
       call pbuf_get_field(pbuf, pbuf_get_index('QRS'), qrs)
       call pbuf_get_field(pbuf, pbuf_get_index('QRL'), qrl)
+
+      ! Initialize clearsky-heating rates to make sure we do not get garbage
+      ! for columns beyond ncol or nday
+      qrsc(:,:) = 0
+      qrlc(:,:) = 0
 
       ! Do shortwave stuff...
       if (radiation_do('sw')) then