initialize effective radius values to zero for CCPP

Author: AndersJensen-NOAA

module_mp_tempo_utils.F90

@@ -1409,6 +1409,10 @@ subroutine calc_effectRad (t1d, p1d, qv1d, qc1d, nc1d, qi1d, ni1d, qs1d,   &
         has_qi = .false.
         has_qs = .false.
 
+        re_qc1d = 0.
+        re_qi1d = 0.
+        re_qs1d = 0.
+
         do k = kts, kte
             rho(k) = 0.622*p1d(k)/(R*t1d(k)*(qv1d(k)+0.622))
             rc(k) = MAX(R1, qc1d(k)*rho(k))