copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
***s/r out_slev
*

      subroutine out_slev (level_id,nk_o,ind_o,st) 3

      implicit none
*
      character*1 st
      integer level_id,nk_o,ind_o(*)
*
*AUTHOR   Michel Desgagne     September   2003
*
*REVISION
*
*ARGUMENTS
*    NAMES       I/O  TYPE  DESCRIPTION
*
#include "lcldim.cdk"
#include "sor.cdk"
*
      integer k
**
*----------------------------------------------------------------------
*
      levtyp = levout_typ(level_id)
      out_lt(1:1) = st
*
      if ((levtyp.eq.'P').or.(levtyp.eq.'H')) then
         do k=1,nk_o
            ind_o(k) = k
         end do
      else
         do k=1,nk_o
            ind_o(k) = int(levout(k,level_id))
         end do
         if (nk_o.eq.gnk) ind_o(nk_o+1) = gnk+1
      endif
      if (levtyp.eq.'P') then
         out_kind=2
         pres_o = -1.
         do k=1,levout_nlvl(level_id)
            pres_o(k)=levout(k,level_id)
         end do
         out_lt(2:2) = 'p'
      endif         
      if (levtyp.eq.'H') then
         out_kind=0
         height_o = -1.
         do k=1,levout_nlvl(level_id)
            height_o(k)=levout(k,level_id)
         end do
         out_lt(2:2) = 'h'
      endif         
      if (levtyp.eq.'G') then
         out_kind=4
         out_lt(2:2) = 'm'
      endif
*
*----------------------------------------------------------------------
      return
      end