c
      subroutine wrsumm
      include "tiegcm_p7.h"
      real sum(100)
      data ncalls/0/
c
      ncalls = ncalls+1
      sum(:) = 0.               ! initialize
      sum(1) = 1.               ! information is available here
      sum(2) = float(imx)       ! number of longitudes
      sum(3) = float(jmx)       ! number of latitudes
      sum(4) = float(kmx)	! number of vertical (half) levels
      sum(5) = zst		! top level (zp)
      sum(6) = zsb		! bottom level (zp)
      sum(7) = float(nflds_proc)! number of fields (if not sech)
      sum(8) = float(isdyn)	! is dynamo/non-dynamo model
      sum(9) = float(istimes)	! is/not timesgcm (not ti(e)gcm)
      sum(10) = float(isflx)	! is/not coupled run
      sum(11) = version		! version (see char version above)
      sum(12) = float(issech)	! is secondary history if sum(12) > 0.
      write(luwr) sum
      if (ncalls.eq.1) then
        write(6,"(/72('-'))")
        write(6,"('Information written to history summary:')")
        write(6,"('  sum(1) = ',f8.2,' (info is available on ',
     +    'the summaries for this run)')") sum(1)
        write(6,"('  sum(2) = ',f8.2,' (number of longitudes)')") sum(2)
        write(6,"('  sum(3) = ',f8.2,' (number of latitudes)')") sum(3)
        write(6,"('  sum(4) = ',f8.2,' (number of vertical (half)',
     +    ' levels)')") sum(4)
        write(6,"('  sum(5) = ',f8.2,' (top level zp)')") sum(5)
        write(6,"('  sum(6) = ',f8.2,' (bottom level zp)')") sum(6)
        write(6,"('  sum(7) = ',f8.2,' (number of fields to read from ',
     +    'history)')") sum(7)
        write(6,"('  sum(8) = ',f8.2,' (dynamo or non-dynamo)')") sum(8)
        write(6,"('  sum(9) = ',f8.2,' (if > 0, is timesgcm, otherwise ',
     +    'is ti(e)gcm)')") sum(9)
        write(6,"('  sum(10) = ',f7.2,' (if > 0, is coupled run ',
     +    'tgcm/ccm2)')") sum(10)
c       write(version,"(a)") sum(11)
        write(6,"('  sum(11) = ',a,'(model version string)')") version
        write(6,"('  sum(12) = ',f8.2,' (if > 0, is secondary hist, ',
     +    'otherwise is primary hist)')") sum(12)
        write(6,"(72('-')/)")
      endif
      return
      end