Merge pull request #153 from AnningCheng-NOAA/mr2_peq

a MERRA2 bug fixed from RRFS
ufs-community · Jan 16, 2024 · a492add · a492add
2 parents 53062d6 + 18616d4
commit a492add
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