Merge remote-tracking branch 'upsream/ufs/dev' into feature/noahmp

ufs-community · Jan 16, 2024 · ca1a6e3 · ca1a6e3
2 parents 09b0235 + a492add
commit ca1a6e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/MP/Morrison_Gettelman/aerinterp.F90 b/physics/MP/Morrison_Gettelman/aerinterp.F90
@@ -426,7 +426,7 @@ SUBROUTINE aerinterpol( me,master,nthrds,npts,IDATE,FHOUR,iflip, jindx1,jindx2,
               ENDDO
            else
              DO  k=1, levsaer-1      !! from sfc to toa
-              IF(prsl(j,L) < aerpres(j,k) .and. prsl(j,L)>aerpres(j,k+1)) then
+              IF(prsl(j,L) <= aerpres(j,k) .and. prsl(j,L)>aerpres(j,k+1)) then
                  i1 = k
                  i2 = min(k+1,levsaer)
                  exit