Tweak DBZI calculation from reviwers,

NOAA-EMC · Oct 3, 2019 · 5e89eed · 5e89eed · ericaligo-NOAA · Oct 3, 2019
1 parent 32746a4
commit 5e89eed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sorc/ncep_post.fd/MDLFLD.f b/sorc/ncep_post.fd/MDLFLD.f
@@ -645,13 +645,13 @@ SUBROUTINE MDLFLD
                    DBZI(I,J,L) =  DBZI(I,J,L) + ((QQS(I,J,L)*DENS)**1.75) * &
      &                                        2.18500E-10 * 1.E18   ! Z FOR SNOW
                  else
-                   DBZI(I,J,L) = 0.
+                   DBZI(I,J,L) = DBZI(I,J,L)
                  endif
                  IF (QQG(I,J,L) < SPVAL .and. QQG(I,J,L)> 0.0) then
                    DBZI(I,J,L) =  DBZI(I,J,L) + ((QQG(I,J,L)*DENS)**1.75) * &
      &                                          1.033267E-9 * 1.E18 ! Z FOR GRAUP
                  else
-                   DBZI(I,J,L) = 0.
+                   DBZI(I,J,L) = DBZI(I,J,L)
                  endif
                IF (Model_Radar) THEN
                  ze_nc=10.**(0.1*REF_10CM(I,J,L))