parameter (ixm=100,jxm=100)
	real t(ixm,jxm),xlat(ixm,jxm),xlon(ixm,jxm)
	parameter (slon=13.388794,slat=41.511648,nlon=287,nlat=200,dij=0.003)
	parameter (elon=slon+(nlon-1)*dij,elat=slat+(nlat-1)*dij)
	integer ora,giorno,mese,anno ; character data*60
	integer ca(nlon,nlat) ; real mt(nlon,nlat),work(nlon,nlat)
	xlat=-9999 ; xlon=-9999

	ora=10 ; giorno=20 ; mese=6 ; anno=2011
	call museomm52d('t2m',anno,mese,giorno,ora,3,t,xlat,xlon,ixm,jxm,ix,jx)
	call chymdownscaling(t,xlon,xlat,ixm,jxm,
	2	mt,ca,work,nlon,nlat,slon,slat,dij,dij)
	call chymgrid(nlon,nlat,slon,slat,dij,dij)
	call chymplottemp(mt,nlon,nlat,'Llc1')
	call mvlibsignature
	call displayexample('example17','MM5 Temperature field on CHyM grid',' ')
	end