From 824f5c1635992db5d804a3cc9dcb1c649278254d Mon Sep 17 00:00:00 2001 From: Dave Gill Date: Thu, 9 Dec 2021 06:42:54 -0700 Subject: [PATCH] Another physics syntax error TYPE: bug fix KEYWORDS: syntax, physics *+ SOURCE: Patricia Balle (HPE) DESCRIPTION OF CHANGES: Problem: As in hash 7c6fd575b7a8fe, PR #1577 "Syntax errors in physics routines: *- and *+", there is a single remaining example of the unary operators next to each other. Solution: The author agreed that the `*+` combination was suppoed to be just `+`. LIST OF MODIFIED FILES: modified: phys/module_mp_ntu.F TESTS CONDUCTED: 1. Passes Cray compiler 2. Jenkins tests are OK --- phys/module_mp_ntu.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/phys/module_mp_ntu.F b/phys/module_mp_ntu.F index 8f0eaa5616..cd0a807e8a 100644 --- a/phys/module_mp_ntu.F +++ b/phys/module_mp_ntu.F @@ -6220,7 +6220,7 @@ SUBROUTINE LARGE_DT(DT,TK1D,QV1D,P1D,RHO,QC1D,QR1D,QI1D,QS1D, & ENDIF IF (AH1D.GE.ASMALL) THEN AhCLsh = (MVDX**2.-MVDH**2.)*NCLS1*ESH*VTASH*NH1D*( & - SASR2*GS3*+SASR1*2.*GH2*GS2+GH3) + SASR2*GS3 +SASR1*2.*GH2*GS2+GH3) ENDIF ENDIF IF (QS1D.GE.QSMALL.AND.MVDS.GE.2.E-4) THEN