C **********************************************************************
C *                                                                    *
C *                                SOFTWARE LICENSING                  *
C *                                                                    *
C *                This program is free software; you can redistribute *
C *                it and/or modify it under the terms of the GNU      *
C *                General Public License as published by the Free     *
C *                Software Foundation, either Version 2 of the        *
C *                license, or (at your option) any later version.     *
C *                                                                    *
C *                This program is distributed in the hope that it     *
C *                will be useful, but without any warranty; without   *
C *                even the implied warranty of merchantability or     *
C *                fitness for a particular purpose. See the GNU       *
C *                General Public License for more details.            *
C *                                                                    *
C *                A copy of the GNU General Public License is         *
C *                available at http://www.gnu.org/copyleft/gpl.html   *
C *                or by writing to the Free Software Foundation, Inc.,*
C *                59 Temple Place - Suite 330, Boston, MA 02111, USA. *
C *                                                                    *
C **********************************************************************

      SUBROUTINE PRTXY(FD,FMASK,IM,JM,KB,KT,IARRAY,SCALE,IUNIT,DEV)
C     VERSION(05/24/91)
C
      SAVE
      CHARACTER*3 DEV
      CHARACTER*7 LEVEL(2)
      DIMENSION FD(IM,JM,KB),IARRAY(IM,JM),FMASK(IM,JM)
      DIMENSION KP(2)
      KP(1)=KT
      KP(2)=KB-1
      LEVEL(1)='SURFACE'
      LEVEL(2)='BOTTOM '
C
C-----------------------------------------------------------------------
C        THIS SUBROUTINE WRITES HORIZONTAL LAYERS OF A 3-D FIELD
C-----------------------------------------------------------------------
C
      DO 10 KM=1,2
      K=KP(KM)
      WRITE(IUNIT,20) LEVEL(KM)
 20   FORMAT(//A7,' LAYER')
      CALL PRINT(FD(1,1,K),FMASK,IM,JM,IARRAY,SCALE,IUNIT,DEV)
 10   CONTINUE
C
      RETURN
      END