From edcdfc551e0b3f35ff6315f854c3aa81a0800331 Mon Sep 17 00:00:00 2001
From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com>
Date: Mon, 3 Jan 2022 09:30:44 -0500
Subject: [PATCH] Update inline post with latest UPP release upp_v10.0.11
 (#449)

* Update UPP revision
* Add foundation temperaure in GFS read interface for inline post.
---
 io/post_gfs.F90 | 17 +++++++++++++++--
 upp             |  2 +-
 2 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/io/post_gfs.F90 b/io/post_gfs.F90
index 08079d9c9..c0adaa0a5 100644
--- a/io/post_gfs.F90
+++ b/io/post_gfs.F90
@@ -368,7 +368,7 @@ subroutine set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile,   &
                              avgetrans, avgesnow, avgprec_cont, avgcprate_cont,&
                              avisbeamswin, avisdiffswin, airbeamswin, airdiffswin, &
                              alwoutc, alwtoac, aswoutc, aswtoac, alwinc, aswinc,& 
-                             avgpotevp, snoavg, ti, si, cuppt
+                             avgpotevp, snoavg, ti, si, cuppt, fdnsst
       use soil,        only: sldpth, sh2o, smc, stc
       use masks,       only: lmv, lmh, htm, vtm, gdlat, gdlon, dx, dy, hbm2, sm, sice
       use ctlblk_mod,  only: im, jm, lm, lp1, jsta, jend, jsta_2l, jend_2u, jsta_m,jend_m, &
@@ -505,13 +505,14 @@ subroutine set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile,   &
 ! GFS does not have surface specific humidity
 !                   inst sensible heat flux
 !                   inst latent heat flux
-!$omp parallel do default(none),private(i,j),shared(jsta,jend,im,spval,qs,twbs,qwbs,ths)
+!$omp parallel do default(none),private(i,j),shared(jsta,jend,im,spval,qs,twbs,qwbs,ths,fdnsst)
       do j=jsta,jend
         do i=1,im
           qs(i,j) = SPVAL
           twbs(i,j) = SPVAL
           qwbs(i,j) = SPVAL
           ths(i,j) = SPVAL
+          fdnsst(i,j) = SPVAL
         enddo
       enddo
 
@@ -917,6 +918,18 @@ subroutine set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile,   &
               enddo
             endif
 
+            ! foundation temperature
+            if(trim(fieldname)=='tref') then
+              !$omp parallel do default(none) private(i,j) shared(jsta,jend,ista,iend,spval,arrayr42d,fdnsst)
+              do j=jsta,jend
+                do i=ista, iend
+                  if (arrayr42d(i,j) /= spval) then
+                    fdnsst(i,j) = arrayr42d(i,j)
+                  endif
+                enddo
+              enddo
+            endif
+
             ! convective precip in m per physics time step
             if(trim(fieldname)=='cpratb_ave') then
               !$omp parallel do default(none) private(i,j) shared(jsta,jend,ista,iend,spval,dtq2,arrayr42d,avgcprate)
diff --git a/upp b/upp
index c939eae6b..0dc3c0c1d 160000
--- a/upp
+++ b/upp
@@ -1 +1 @@
-Subproject commit c939eae6bacb3c2a93753bba54b8646f32a0a7ab
+Subproject commit 0dc3c0c1dbdcdc5025dff0c6b06b16aa2a7ddda9