show parcels with $SHOW

urbanjost · Dec 27, 2021 · 929f7af · 929f7af
1 parent fa73190
commit 929f7af
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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))