From 929f7af05275ffba8a6ff79fe132a3ddeed6562e Mon Sep 17 00:00:00 2001
From: "John S. Urban" <urbanjost@comcast.net>
Date: Mon, 27 Dec 2021 01:57:43 -0500
Subject: [PATCH] show parcels with $SHOW

---
 app/prep.f90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/app/prep.f90 b/app/prep.f90
index 83edc9e..b44ed66 100755
--- a/app/prep.f90
+++ b/app/prep.f90
@@ -42,7 +42,7 @@ module M_fpp                                                                 !@(
       integer                           ::  line_number=0
       character(len=G_line_length)      ::  name
    end type
-   type(parcel_stack),public            ::  G_parcel_dictionary(500)
+   type(parcel_stack),public            :: G_parcel_dictionary(500)
 
    integer,save                         :: G_line_number=0
    logical,save,public                  :: G_inparcel=.false.
@@ -1701,6 +1701,11 @@ subroutine debug_state(msg)                        !@(#)debug(3f): process $SHOW
       write(G_iout,fmt)"!    $DEFINE",trim(G_defvar(i)),' = ',adjustl(G_defval(i)) ! write variable and corresponding value
    enddo
 
+   write(G_iout,'(a)')'! Parcels:'
+   do i=1,G_parcelcount
+      write(G_iout,fmt) '!   ',trim(G_parcel_dictionary(i)%name)
+   enddo
+
    if(size(keywords).gt.0)then
       write(G_iout,fmt)'! SET strings:(There are',size(keywords),'keywords defined)'
       write(G_iout,'(3(g0,1x))')('!    $SET',keywords(i),values(i)(:counts(i)),i=1,size(keywords))