c***  the dimension of the state, the number of obs,
c***  the number of ensemble members, and the number of ics
	parameter(nx=120)
	parameter(ny=31)
	parameter(nz=29)
        parameter(nf=4)
	parameter(n=nx*ny*nz*nf)
	parameter(mobs=1200) 
	parameter(nens=15)
	parameter(ics=60)