subroutine summ_rpt_proc_prob_descr_string (pdsNo, probDescrStr, rptLun, localrc)
integer, intent(in) :: pdsNo
type(problem_descriptor_strings), intent(in) :: probDescrStr
integer, intent(in) :: rptLun
integer, intent(out) :: localrc
!integer :: PdsCnt
!integer :: PdsNo
integer :: DfileCnt
integer :: DfileNo
integer :: GfileCnt
integer :: GfileNo
write (rptLun, 9001)
write (rptLun, 9015) pdsNo
write (rptLun, 9010) trim(probDescrStr%pds)
write (rptLun, 9011) trim(probDescrStr%process%string)
write (rptLun, 9012) probDescrStr%process%tag
DfileCnt = probDescrStr%nDFiles
write (rptLun, 9013) DfileCnt
GfileCnt = probDescrStr%nGFiles
write (rptLun, 9014) GfileCnt
! for each distribution file
do DfileNo = 1, DfileCnt
! for each grid file
do GfileNo = 1, GfileCnt
! display dist file and grid file entry
call summ_rpt_proc_dist_grid_files (DfileNo, GfileNo, &
probDescrStr%Dfiles(DfileNo), probDescrStr%Gfiles(GfileNo), rptLun, localrc)
end do
end do
write (rptLun, 9002)
localrc = ESMF_SUCCESS
90 continue
9001 FORMAT (' <ProbDescString>')
9002 FORMAT (' </ProbDescString>')
9010 FORMAT (' <PDS>', A, '</PDS>')
9011 FORMAT (' <Process>', A, '</Process>')
9012 FORMAT (' <ProcessCode>', I3, '</ProcessCode>')
9013 FORMAT (' <DistFileCnt>', I3, '</DistFileCnt>')
9014 FORMAT (' <GridFileCnt>', I3, '</GridFileCnt>')
9015 FORMAT (' <PdsNo>', I3, '</PdsNo>')
end subroutine summ_rpt_proc_prob_descr_string