Skip to content

Commit

Permalink
fix RUC LSM variable that is allocated twice
Browse files Browse the repository at this point in the history
  • Loading branch information
grantfirl committed Oct 24, 2024
1 parent e12d228 commit f689f5e
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 6 deletions.
5 changes: 0 additions & 5 deletions ccpp/data/GFS_typedefs.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2356,8 +2356,6 @@ subroutine sfcprop_create (Sfcprop, Model)
allocate (Sfcprop%emis_lnd (IM))
allocate (Sfcprop%emis_ice (IM))
allocate (Sfcprop%emis_wat (IM))
allocate (Sfcprop%acsnow_land (IM))
allocate (Sfcprop%acsnow_ice (IM))

Sfcprop%slmsk = clear_val
Sfcprop%oceanfrac = clear_val
Expand Down Expand Up @@ -2415,9 +2413,6 @@ subroutine sfcprop_create (Sfcprop, Model)
Sfcprop%emis_lnd = clear_val
Sfcprop%emis_ice = clear_val
Sfcprop%emis_wat = clear_val
Sfcprop%acsnow_land = clear_val
Sfcprop%acsnow_ice = clear_val


!--- In (radiation only)
allocate (Sfcprop%snoalb (IM))
Expand Down
2 changes: 1 addition & 1 deletion ccpp/physics

0 comments on commit f689f5e

Please sign in to comment.