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 #endifARGUMENTS:
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 dim4REVISION HISTORY:
LOCAL VARIABLES: