Allocation and initialization of fld_info array

[DusanJovic-NOAA]

Array fld_info is allocated to have the size of NRECOUT+100 elements, here:

UPP/sorc/ncep_post.fd/SET_OUTFLDS.f

Line 147 in 7830246

allocate(fld_info(NRECOUT+100))

but only first nrecout elements are initialized.

      allocate(fld_info(NRECOUT+100))
      do i=1,nrecout
        fld_info(i)%ifld     = 0
        fld_info(i)%lvl      = 0
        fld_info(i)%lvl1     = 0
        fld_info(i)%lvl2     = 0
        fld_info(i)%ntrange  = 0
        fld_info(i)%tinvstat = 0
      enddo

Why are this 100 extra elements needed? If they are needed, then the loop that initializes fld_info must be extended to nrecout+100.

[WenMeng-NOAA]

@HuiyaChuang-NOAA Do you have any background information for the this inurement?

[HuiyaChuang-NOAA]

@HuiyaChuang-NOAA Do you have any background information for the this inurement?

This section was written by Lin Gan. I assumed he did that to avoid array out of bound?