Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update inline post with latest UPP release upp_v10.0.11 #449

Merged
merged 8 commits into from
Jan 3, 2022
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