Skip to content

Solve conflicted UPP IDs #625

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

Merged
WenMeng-NOAA merged 1 commit into from
Feb 6, 2023
Merged

Solve conflicted UPP IDs #625

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
29 changes: 1 addition & 28 deletions sorc/ncep_post.fd/CLDRAD.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -69,6 +69,7 @@
!> 2022-11-16 | Eric James | Adding total column dust, biomass burning emissions, hourly wildfire potential from RRFS
!> 2022-1207 | Wen Meng | Add AOD for AQM
!> 2022-12-15 | Eric James | experimental cloud base height diagnostic from HRRR, to correct a low bias in cloud cover
!> 2023-02-02 | Wen Meng | Remove GSL specified clear-sky upward/downward SW
!>
!> @author Russ Treadon W/NP2 @date 1993-08-30
SUBROUTINE CLDRAD
Expand Down Expand Up @@ -3832,20 +3833,6 @@ SUBROUTINE CLDRAD
endif
ENDIF

! Instantaneous clear-sky upwelling SW at the surface
IF (IGET(743)>0) THEN
DO J=JSTA,JEND
DO I=ISTA,IEND
GRID1(I,J) = SWUPBC(I,J)
ENDDO
ENDDO
if(grib=='grib2') then
cfld=cfld+1
fld_info(cfld)%ifld=IAVBLFLD(IGET(743))
datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend)
endif
ENDIF

! CURRENT OUTGOING LW RADIATION AT THE SURFACE.
IF (IGET(142)>0) THEN
!$omp parallel do private(i,j)
Expand Down Expand Up @@ -3962,20 +3949,6 @@ SUBROUTINE CLDRAD
endif
ENDIF

! Instantaneous clear-sky downwelling SW at surface (GSD version)
IF (IGET(742)>0) THEN
DO J=JSTA,JEND
DO I=ISTA,IEND
GRID1(I,J) = SWDNBC(I,J)
ENDDO
ENDDO
if(grib=='grib2') then
cfld=cfld+1
fld_info(cfld)%ifld=IAVBLFLD(IGET(742))
datapd(1:iend-ista+1,1:jend-jsta+1,cfld)=GRID1(ista:iend,jsta:jend)
endif
ENDIF

! Instantaneous SWDDNI
IF (IGET(772)>0)THEN
!$omp parallel do private(i,j)
Expand Down