Skip to content

Commit

Permalink
Update inline post with latest UPP release upp_v10.0.11 (NCAR#449)
Browse files Browse the repository at this point in the history
* Update UPP revision
* Add foundation temperaure in GFS read interface for inline post.
  • Loading branch information
WenMeng-NOAA committed Jan 3, 2022
1 parent 9ab2847 commit edcdfc5
Show file tree
Hide file tree
Showing 2 changed files with 16 additions and 3 deletions.
17 changes: 15 additions & 2 deletions io/post_gfs.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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, &
Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion upp
Submodule upp updated 43 files
+1 −1 parm/3drtma_postcntrl.xml
+20 −0 parm/README.make_flatfile
+3,361 −0 parm/fv3lam_rrfs.xml
+14 −1 parm/makefile
+0 −1,304 parm/nam_cntrl_cmaq.parm
+0 −503 parm/nmb_cntrl.parm
+114 −6 parm/post_avblflds.xml
+5 −0 parm/postcntrl_gfs_f00_two.xml
+5 −0 parm/postcntrl_gfs_flux.xml
+5 −0 parm/postcntrl_gfs_flux_f00.xml
+5 −0 parm/postcntrl_gfs_two.xml
+521 −0 parm/postcntrl_hafs_nosat.xml
+3 −3 parm/postxconfig-NT-3drtma.txt
+38 −1 parm/postxconfig-NT-GFS-F00-TWO.txt
+38 −1 parm/postxconfig-NT-GFS-FLUX-F00.txt
+38 −1 parm/postxconfig-NT-GFS-FLUX.txt
+38 −1 parm/postxconfig-NT-GFS-TWO.txt
+17,573 −0 parm/postxconfig-NT-fv3lam_rrfs.txt
+2,682 −0 parm/postxconfig-NT-hafs_nosat.txt
+0 −365 parm/rap_wrf_cntrl.parm
+0 −499 parm/wrf_cntrl.parm
+2 −0 sorc/ncep_post.fd/ALLOCATE_ALL.f
+15 −28 sorc/ncep_post.fd/CLDRAD.f
+1 −3 sorc/ncep_post.fd/CMakeLists.txt
+1 −0 sorc/ncep_post.fd/DEALLOCATE.f
+22 −2 sorc/ncep_post.fd/FIXED.f
+36 −37 sorc/ncep_post.fd/INITPOST_GFS_NEMS.f
+0 −1 sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f
+0 −1 sorc/ncep_post.fd/INITPOST_GFS_NETCDF.f
+8 −3 sorc/ncep_post.fd/INITPOST_GFS_NETCDF_PARA.f
+0 −3,062 sorc/ncep_post.fd/INITPOST_GFS_SIGIO.f
+0 −1 sorc/ncep_post.fd/INITPOST_NEMS.f
+0 −1 sorc/ncep_post.fd/INITPOST_NEMS_MPIIO.f
+175 −20 sorc/ncep_post.fd/INITPOST_NETCDF.f
+8 −6 sorc/ncep_post.fd/MAPSSLP.f
+3 −1 sorc/ncep_post.fd/MDLFLD.f
+0 −240 sorc/ncep_post.fd/READCNTRL.F
+0 −2,753 sorc/ncep_post.fd/RQSTFLD.F
+44 −0 sorc/ncep_post.fd/RQSTFLD.f
+272 −0 sorc/ncep_post.fd/SURFCE.f
+1 −1 sorc/ncep_post.fd/VRBLS2D_mod.f
+25 −81 sorc/ncep_post.fd/WRFPOST.f
+347 −1 sorc/ncep_post.fd/grib2_module.f

0 comments on commit edcdfc5

Please sign in to comment.