Manually pick up some changes from Pull Request of Memcheck fixes 1171.

Author: BinLiu-NOAA

sorc/ncep_post.fd/ALLOCATE_ALL.f

@@ -647,6 +647,9 @@ SUBROUTINE ALLOCATE_ALL()
           snow_bucket1(i,j)=spval
           graup_bucket(i,j)=spval
           graup_bucket1(i,j)=spval
+          frzrn_bucket(i,j)=spval
+          snow_acm(i,j)=spval
+          snow_bkt(i,j)=spval
           qrmax(i,j)=spval
           tmax(i,j)=spval
           snownc(i,j)=spval
@@ -752,6 +755,7 @@ SUBROUTINE ALLOCATE_ALL()
           sfclhx(i,j)=spval
           fis(i,j)=spval
           t500(i,j)=spval
+          z500(i,j)=spval
           t700(i,j)=spval
           z700(i,j)=spval
           teql(i,j)=spval

sorc/ncep_post.fd/xml_perl_data.f

@@ -130,6 +130,32 @@ subroutine read_postxconfig()
 ! Take the first line as paramset_count
 	read(22,*)paramset_count
 
+        if(associated(paramset)) then
+          if(size(paramset)>0) then
+            do i=1,size(paramset)
+              if (associated(paramset(i)%param)) then
+                if (size(paramset(i)%param)>0) then
+                  do j=1,size(paramset(i)%param)
+                    if (associated(paramset(i)%param(j)%scale_fact_fixed_sfc1)) &
+                        deallocate(paramset(i)%param(j)%scale_fact_fixed_sfc1)
+                    if (associated(paramset(i)%param(j)%level)) &
+                        deallocate(paramset(i)%param(j)%level)
+                    if (associated(paramset(i)%param(j)%scale_fact_fixed_sfc2)) &
+                        deallocate(paramset(i)%param(j)%scale_fact_fixed_sfc2)
+                    if (associated(paramset(i)%param(j)%level2)) &
+                        deallocate(paramset(i)%param(j)%level2)
+                    if (associated(paramset(i)%param(j)%scale)) &
+                        deallocate(paramset(i)%param(j)%scale)
+                  enddo
+                  deallocate(paramset(i)%param)
+                  nullify(paramset(i)%param)
+                endif
+              endif
+            enddo
+          endif
+          deallocate(paramset)
+        endif
+
 ! Allocate paramset array size
         allocate(paramset(paramset_count))