Skip to content

Commit

Permalink
Bug fix for invalid land categories in CRTM (#810)
Browse files Browse the repository at this point in the history
* Bug fix for CRTM to handle invalid land category.

* Adding change log entry.
  • Loading branch information
EricJames-NOAA authored Oct 28, 2023
1 parent d1044b1 commit baf99e5
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions sorc/ncep_post.fd/CALRAD_WCLOUD_newcrtm.f
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,7 @@
!> 2022-05-26 | WM Lewis | added support for GOES-18 ABI IR Channels 7-16
!> 2022-09-12 | Wen Meng | Added cloud fraction changes for crtm/2.4.0
!> 2023-03-22 | WM Lewis | Added support for using effective radius arrays from RRFS
!> 2023-10-25 | Eric James | Bug fix for invalid land category in CRTM
!>
!> @author Chuang @date 2007-01-17
!---------------------------------------------------------------------------
Expand Down Expand Up @@ -252,8 +253,8 @@ SUBROUTINE CALRAD_WCLOUD
model_to_crtm=(/PINE_FOREST, BROADLEAF_FOREST, PINE_FOREST, &
BROADLEAF_FOREST,BROADLEAF_PINE_FOREST, SCRUB, SCRUB_SOIL, &
BROADLEAF_BRUSH,BROADLEAF_BRUSH, SCRUB, BROADLEAF_BRUSH, &
TILLED_SOIL, URBAN_CONCRETE,TILLED_SOIL, INVALID_LAND, &
COMPACTED_SOIL, INVALID_LAND, TUNDRA,TUNDRA, TUNDRA/)
TILLED_SOIL, URBAN_CONCRETE,TILLED_SOIL, URBAN_CONCRETE, &
COMPACTED_SOIL, BROADLEAF_BRUSH, TUNDRA,TUNDRA, TUNDRA/)
else if(ivegsrc==0)then ! USGS veg type
allocate(model_to_crtm(novegtype) )
model_to_crtm=(/URBAN_CONCRETE, &
Expand Down

0 comments on commit baf99e5

Please sign in to comment.