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.

Sign up for GitHub

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

Correct the reading of inst. clear sky downward shortwave flux at surface for RRFS #956

Closed
wants to merge 2 commits into from
Closed

Correct the reading of inst. clear sky downward shortwave flux at surface for RRFS #956

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
848ac39
Changes to encode clear sky downwelling shortwave flux at surface.
EricJames-NOAA May 9, 2024
638d3e2
Adding change log entry.
EricJames-NOAA May 9, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 6 additions & 9 deletions sorc/ncep_post.fd/INITPOST_NETCDF.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -52,6 +52,7 @@
!> 2024-03-25 | Eric James | Enabling reading of snow melt and surface albedo from RRFS
!> 2024-04-23 | Eric James | Updating smoke emissions to be 3D variable (ebu_smoke)
!> 2024-05-01 | Eric James | set "prec_acc_dt1" as 15 min for RRFS
!> 2024-05-09 | Eric James | Enable reading of clear-sky downwelling shortwave irradiance
!>
!> @author Hui-Ya Chuang @date 2016-03-04
!----------------------------------------------------------------------
Expand Down Expand Up @@ -2758,6 +2759,11 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d)
call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
spval,VarName,rswin)

! inst incoming clear sky sfc shortwave
VarName='dswrf_clr'
call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
spval,VarName,rswinc)

! inst incoming direct beam sfc shortwave
VarName='visbmdi'
call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
Expand All @@ -2773,15 +2779,6 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d)
call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
spval,VarName,xlaixy)

! inst incoming clear sky sfc shortwave
! FV3 do not output instant incoming clear sky sfc shortwave
!$omp parallel do private(i,j)
do j=jsta_2l,jend_2u
do i=ista_2l,iend_2u
rswinc(i,j) = spval
enddo
enddo

! time averaged incoming sfc uv-b using getgb
VarName='duvb_ave'
call read_netcdf_2d_para(ncid2d,ista,ista_2l,iend,iend_2u,jsta,jsta_2l,jend,jend_2u, &
Expand Down
Loading