From 3ae6ebd0988833d5ae3533578a2bcda903faf07f Mon Sep 17 00:00:00 2001
From: Dom Heinzeller <climbfuji@ymail.com>
Date: Tue, 20 Oct 2020 14:02:59 -0600
Subject: [PATCH] Fix uninitialized variable mvd_r in
 physics/module_mp_thompson.F90

---
 physics/module_mp_thompson.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/physics/module_mp_thompson.F90 b/physics/module_mp_thompson.F90
index 304afc6d5..600166113 100644
--- a/physics/module_mp_thompson.F90
+++ b/physics/module_mp_thompson.F90
@@ -1797,6 +1797,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, &
          rho(k) = 0.622*pres(k)/(R*temp(k)*(qv(k)+0.622))
          nwfa(k) = MAX(11.1E6, MIN(9999.E6, nwfa1d(k)*rho(k)))
          nifa(k) = MAX(naIN1*0.01, MIN(9999.E6, nifa1d(k)*rho(k)))
+         mvd_r(k) = D0r
 
          if (qc1d(k) .gt. R1) then
             no_micro = .false.