	program readbndy

C	written to compare BC files generated by initbc, and stuff that come
C	 out of 3DVAR or BCTEND

	parameter(im=70,jm=111,lm=45)

	                     P A R A M E T E R
     & (NBCR=15
     &, IMT=IM*2-1,JMT=JM/2+1)
                             P A R A M E T E R
     & (LB=2*JMT+IMT-3
     &, IMJM=IM*JM-JM/2)

	logical run
	integer idat(3),ihrst
	real tboco

	                             D I M E N S I O N
     & PDB   (LB,2)
     &,TB    (LB,LM,2),QB    (LB,LM,2),UB    (LB,LM,2),VB    (LB,LM,2)
     &,Q2B   (LB,LM,2),CWMB  (LB,LM,2)

C	open(unit=11,file='bndy.file',form='unformatted',access='sequential')
	
  	  read(11,end=950) RUN,IDAT,IHRST,TBOCO

	write(6,*) RUN,IDAT,IHRST,TBOCO
	do N=1,50
  	  read(11,end=950) BCHR
          read(11,end=950) PDB
          read(11,end=950) TB
          read(11,end=950) QB
          read(11,end=950) UB
          read(11,end=950) VB
          read(11,end=950) Q2B
          read(11,end=950) CWMB
	write(6,*) 'N,PDB(20,1),PDB(20,2): ',N,PDB(20,1),PDB(20,2)
	enddo

  950	write(6,*) 'read end of file'

	end
