From eb0cef2dab41a68fbe520a8910d5fad5e6a00191 Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Thu, 23 Apr 2020 19:45:53 +0000 Subject: [PATCH] Add one more fix for 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 e23ba2bf5..2ed406358 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 .or. IDECID == 21) THEN + IF (IDECID == 17 .or. IDECID == 20 .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