| 1 | subroutine do_plumes(uplume,vplume,thplume,splume, | subroutine do_plumes(uplume,vplume,thplume, | 
| 2 | .    idim,jdim,Nr,Nsx,Nsy,bi,bj,nxperdyn,nyperdyn, | .    idim,jdim,Nr,Nsx,Nsy,bi,bj,nxperdyn,nyperdyn, | 
| 3 | .    duplume,dvplume,dthplume,dsplume) | .    duplume,dvplume,dthplume) | 
| 4 | c----------------------------------------------------------------------- | c----------------------------------------------------------------------- | 
| 5 | c Dummy routine to calculate plumes increments - here set them to whatever | c Dummy routine to calculate plumes increments - here set them to whatever | 
| 6 | c | c |