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 |