established a branch for q MERRA2 bug fixed from RRFS

ufs-community · Jan 8, 2024 · 18616d4 · 18616d4
1 parent 53062d6
commit 18616d4
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