Skip to content

Commit

Permalink
Fix typo in CLD_PARAMS routine in gckpp_HetRates.F90
Browse files Browse the repository at this point in the history
Steve Steenrod wrote:

  I noticed line 5995 in KPP/Standard/gckpp_HetRates.F90 is:

     IF (((QL.le.0.0e+0_fp).and.(QL.le.0.0e+0_fp)).or.(CLDF(I,J,L).le.0.0e+0_fp)) THEN

  An odd structure of "if ((A and A) or B)", so I was thinking one of the
  "QL"s should probably be "QI"

Signed-off-by: Melissa Sulprizio <mpayer@seas.harvard.edu>
  • Loading branch information
msulprizio committed Jun 18, 2019
1 parent d24ce47 commit 95d124e
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion KPP/Standard/gckpp_HetRates.F90
Expand Up @@ -6001,7 +6001,7 @@ SUBROUTINE CLD_PARAMS( I, J, L, DENAIR, &
IF ( CLDFR.le.0.0e+0_fp ) CLDFr = 1.0e-32_fp

! Quick test - is there any cloud?
IF (((QL.le.0.0e+0_fp).and.(QL.le.0.0e+0_fp)).or.(CLDF(I,J,L).le.0.0e+0_fp)) THEN
IF (((QL.le.0.0e+0_fp).and.(QI.le.0.0e+0_fp)).or.(CLDF(I,J,L).le.0.0e+0_fp)) THEN
rLiq = xCldR_Cont
ALiq = 0.0e+0_fp
VLiq = 0.0e+0_fp
Expand Down

0 comments on commit 95d124e

Please sign in to comment.