subroutine ncd_getiodesc

INTERFACE:

   subroutine ncd_getiodesc(clmlevel, ndims, dims, xtype, iodnum, switchdim)

DESCRIPTION:

Returns an index to an io descriptor

USES:

ARGUMENTS:

     character(len=8), intent(in)  :: clmlevel   ! clmlevel
     integer         , intent(in)  :: ndims      ! ndims for var      
     integer         , intent(in)  :: dims(:)    ! dim sizes
     integer         , intent(in)  :: xtype      ! file external type
     integer         , intent(out) :: iodnum     ! iodesc num in list
     logical,optional, intent(in)  :: switchdim  ! switch level dimension and first dim

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: