get_clmlevel_dsize

INTERFACE:

   subroutine get_clmlevel_dsize (clmlevel,dims,s1,s2,s3,s4)

DESCRIPTION:

Determine number of dims and size of dims from clmlevel

USES:

   use clmtype  , only : gratm, grlnd, nameg, namel, namec, namep, allrof
   use domainMod, only : adomain,ldomain
 #ifdef RTM
   use clm_varpar,only : rtmlon,rtmlat
 #endif

ARGUMENTS:

     implicit none
     character(len=*), intent(in ) :: clmlevel    !type of clm 1d array
     integer,          intent(out) :: dims        ! number of dimensions
     integer,optional, intent(out) :: s1          ! size of dim1
     integer,optional, intent(out) :: s2          ! size of dim2
     integer,optional, intent(out) :: s3          ! size of dim3
     integer,optional, intent(out) :: s4          ! size of dim4

REVISION HISTORY:

LOCAL VARIABLES: