C
C INPUT CONTROL PARAMETERS
C
 TITLEA  = 'Sample Plot 9 - Spectral plot'
 TAPESA  = '/CSM/ccm2/414/hist/h0001'
 DAYSA   =  0.,9.,1.
 FIELDA1 = 'UVSQ'
 SPCA1   = 'YES'
 TIMAVGA = 'SPEC'
 SPSNGRF = 'YES'

Fig. 9.  Spectral plot of kinetic energy, time averaged in spectral space
(*SPGR).  The kinetic energy spectra field (UVSQ) is computed from vorticiy and
divergence, which are automatically derived from U and V on the input history
tape (*CDFL).  (18 time averaged spectral line plots are created)