!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
 subroutine a2al (a,imin,jmin,n,lmax,list)
!*************************************************************************
!                                                                        *
!     Decompose global array and output result                           *
!                                                                        *
!*************************************************************************
include 'param_o.h'
!------------------------------------------------------------------------
real, dimension  (0:im+1,0:jm+1,nm,lmax), intent (in) :: a
real, dimension (0:ilm+1,0:jlm+1,lmax) :: al
!------------------------------------------------------------------------
      do l=1,lmax
          j = jmin
        do jl = 0,jlm+1
          i = imin
        do il = 0,ilm+1
          al(il,jl,l) = a(i,j,n,l)
          i = i + 1
        end do
          j = j + 1
        end do
      end do

        
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!      write(50,*) 'n=',n
!		do l=1,lmax
!		do j=0,jlm+1
!		  write(50,1000) (al(i,j,1),i=0,ilm+1)
!		end do
!		end do
!1000    format(' ',9(f8.1,1x))
!
!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      write(list) al
!------------------------------------------------------------------------
end subroutine a2al 
