From 5c80ad0900e0b3010e000be8994aa970a79874a2 Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Tue, 30 Nov 2021 20:44:29 +0000 Subject: [PATCH 1/4] Update UPP revision --- upp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/upp b/upp index c939eae6b..0d0c72120 160000 --- a/upp +++ b/upp @@ -1 +1 @@ -Subproject commit c939eae6bacb3c2a93753bba54b8646f32a0a7ab +Subproject commit 0d0c72120a68feb371c1235d7b3094818b5b586a From 4abaeb0ae91109a7a254c363e202150a19888fb8 Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Wed, 15 Dec 2021 16:19:01 +0000 Subject: [PATCH 2/4] update upp revision to 0dc3c0c --- upp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/upp b/upp index 0d0c72120..0dc3c0c1d 160000 --- a/upp +++ b/upp @@ -1 +1 @@ -Subproject commit 0d0c72120a68feb371c1235d7b3094818b5b586a +Subproject commit 0dc3c0c1dbdcdc5025dff0c6b06b16aa2a7ddda9 From 7987a53f1df548b7ddad538d6cc390d62c0c707a Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Thu, 16 Dec 2021 17:32:42 +0000 Subject: [PATCH 3/4] Add foundation temperaure in GFS read interface for inline post. --- io/post_gfs.F90 | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/io/post_gfs.F90 b/io/post_gfs.F90 index 08079d9c9..3db562d49 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,19 @@ 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) From 726e78ebc30f81aea91fe5ea2dec29a54b19e55d Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Thu, 16 Dec 2021 20:33:23 +0000 Subject: [PATCH 4/4] correct sytax error --- io/post_gfs.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/io/post_gfs.F90 b/io/post_gfs.F90 index 3db562d49..c0adaa0a5 100644 --- a/io/post_gfs.F90 +++ b/io/post_gfs.F90 @@ -920,8 +920,7 @@ subroutine set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile, & ! foundation temperature if(trim(fieldname)=='tref') then - !$omp parallel do default(none) private(i,j) - !shared(jsta,jend,ista,iend,spval,arrayr42d,fdnsst) + !$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