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