|	        integer k
							      >	Chou print 
							      >		 open(unit=3,file='avnin.dat',form='unformatted',
							      >	     &        access='sequential')
							      >		do k=nzin,1,-1
							      >		write(3) ((htin(i,j,k),i=1,nxin),j=1,nyin) 
							      >		enddo
							      >		do k=nzin,1,-1
							      >		write(3) ((uwin(i,j,k),i=1,nxin),j=1,nyin) 
							      >		enddo
							      >		do k=nzin,1,-1
							      >		write(3) ((vwin(i,j,k),i=1,nxin),j=1,nyin) 
							      >		enddo
							      >		do k=nzin,1,-1
							      >		write(3) ((mrin(i,j,k),i=1,nxin),j=1,nyin) 
							      >		enddo	
							      >		
	REAL,ALLOCATABLE:: utmpout(:,:),utmp(:,:),utmpout1(:, |		REAL,ALLOCATABLE:: utmpout(:,:),utmp(:,:)
	REAL,ALLOCATABLE:: vtmpout(:,:),vtmp(:,:),vtmpout1(:, |		REAL,ALLOCATABLE:: vtmpout(:,:),vtmp(:,:)
	ALLOCATE (UTMPOUT1(IM,JM))			      <
	ALLOCATE (VTMPOUT1(IM,JM))			      <
	 call ltlwin(ald,apd,utmpout,vtmpout,dtr,utmpout1,vtm |		 call ltlwin(ald,apd,utmpout,vtmpout,dtr,utmpout,vtmp
	  uint(i,j,l)=utmpout1(i,j)			      |		  uint(i,j,l)=utmpout(i,j)
	  vint(i,j,l)=vtmpout1(i,j)			      |		  vint(i,j,l)=vtmpout(i,j)
	write(6,*) 'DETA,ETA ', DETA(N),ETA(N+1)	      |	C	write(6,*) 'DETA,ETA ', DETA(N),ETA(N+1)
C            print*,"JLG1",ref(i,j), eta(l),hgt(i,j),i,j,l    <
C        Print*,"JLG0",pd(i,j),pt,ref(i,j),alpgt	      <
C              if (teta(i,j,l).gt.2000) Print*,'JLG',teta(i,j |