!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
      subroutine a2ali (a,imin,jmin,n,lmax,list)
!*************************************************************************
!                                                                        *
!     Decompose global array and output result                           *
!                                                                        *
!*************************************************************************
       include 'param_o.h'
!------------------------------------------------------------------------
       integer, dimension  (0:im+1,0:jm+1,nm,lmax), intent (in) :: a
       integer, 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(list) al
!------------------------------------------------------------------------
      end subroutine a2ali
