SUBROUTINE DYNOUT
C  
C  *********    Write  out  all  dynamics  arrays  for  new  CIRCULATION  if requested   ***********
C

#include "com2d.h"

c
CC   TEMPALL(18,59,36), WALL(18,59,36), VALL(19,58,36), KYYALL(18,59,36), KZZALL(18,59,36), 
CC       KZZTROP(18,59,36), KYZALL(18,59,36) are all (18,59,36) and are in common block DYNMOD
c
c        QBARY(37,59,36) is in COMMON block DATA12
c

        COMMON/DYNEXTRA/ubarall(37,59,36), kzzall37(37,59,36),
     *     fxtall(37,59,36), qvall(37,59,36), kruall(37,59,36),
     *     fkall(37,59,36), walla(37,59,36), valla(37,59,36), 
     *     heatall(37,59,36), ddhall(37,59,36), lhall(37,59,36),
     *     qtotall(37,59,36), cffall(37,59,36), chiall(37,59,36)
c

          WRITE (37) tempall
          WRITE (37) wall
          WRITE (37) vall
          WRITE (37) kyyall
          WRITE (37) kzzall
          WRITE (37) kzztrop
          WRITE (37) kyzall

          WRITE (37) walla
          WRITE (37) valla
          WRITE (37) ubarall
          WRITE (37) qbary
          WRITE (37) kzzall37
          WRITE (37) fxtall
          WRITE (37) fkall
          WRITE (37) qvall
          WRITE (37) kruall
          WRITE (37) heatall
          WRITE (37) ddhall
          WRITE (37) lhall
          WRITE (37) qtotall
          WRITE (37) cffall
          WRITE (37) chiall

        SAVE
	RETURN
	END