Skip to content

Conversation

@jordanschnell
Copy link

This PR initializes the index_smoke/dust to null in their initial declaration, i.e.,
integer, pointer :: index_smoke_fine => null(), index_dust_fine => null(), index_dust_coarse => null()

Otherwise, IF associated(index_*) doesn't work because the pointer is in an undefined state

integer, pointer :: index_nwfa, index_nifa
! Chemistry
integer, pointer :: index_smoke_fine, index_dust_fine, index_dust_coarse
integer, pointer :: index_smoke_fine => null(), index_dust_fine => null(), index_dust_coarse => null()

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

@jordanschnell Thanks for a quick fix. But still curious why other points don't need to be initialized?

@guoqing-noaa guoqing-noaa merged commit d777b04 into RRFSx:rrfs Dec 3, 2025
18 checks passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants