c$Header: /weru/cvs/weps/weps.src/mproc/mixproc.for,v 1.1.1.1 1999-03-12 17:05:29 wagner Exp $
c
c
      subroutine mixproc(u, nlay, xcomp, cmass, mass) 

c     + + + PURPOSE + + +
c     
c     This subroutine perfoms the actual mixing process.
c
c     + + + KEYWORDS + + +
c     mixing 
c

*$noereference
      include 'p1werm.inc'
*$reference

c
c     + + + ARGUMENT DECLARATIONS + + +
      integer nlay  
	  real xcomp(mnsz), mass, cmass, u

c     + + + ARGUMENT DEFINITIONS + + +
c
c     cmass	- total mass of a component contained in a subregion 
c     mass	- total mass in a subregion 
c     nlay	- number of layers to be mixed
c     u		- mixing coefficient
c	  xcomp	- component value that is mixed

c     + + + LOCAL VARIABLES + + +
c
      integer i  
	  real mixed(mnsz) 
c
c     + + + LOCAL VARIABLE DEFINITIONS + + +
c
c     i		- index for layers in a subregion
c	  mixed	- temperory variable containing the mixed component 

c     + + + END SPECIFICATIONS + + + 

c     Do the mixing process. 
	  
	  do 100 i=1,nlay 
	    mixed(i) = (1-u)*xcomp(i)+(u*cmass/mass) 
		xcomp(i) = mixed(i) 
100   continue
	  
	  end