From f5f22101e62b78febe5b3866f906a52379317328 Mon Sep 17 00:00:00 2001
From: Wen Meng <wen.meng@noaa.gov>
Date: Thu, 23 Apr 2020 19:07:58 +0000
Subject: [PATCH] The bug fix of scattering calculation from Kate Zhang.

---
 sorc/ncep_post.fd/CALPW.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sorc/ncep_post.fd/CALPW.f b/sorc/ncep_post.fd/CALPW.f
index 5c18874ac..e23ba2bf5 100644
--- a/sorc/ncep_post.fd/CALPW.f
+++ b/sorc/ncep_post.fd/CALPW.f
@@ -290,7 +290,7 @@ SUBROUTINE CALPW(PW,IDECID)
           DO I=1,IM
              DP      = PINT(I,J,L+1) - PINT(I,J,L)
              PW(I,J) = PW(I,J) + Qdum(I,J)*DP*GI*HTM(I,J,L)
-            IF (IDECID == 17) THEN
+            IF (IDECID == 17 .or. IDECID == 21) THEN
              PW(I,J) = PW(I,J) + Qdum(I,J)*MAX(DP,0.)*GI*HTM(I,J,L)
             ENDIF
             IF (IDECID == 19) THEN