subroutine step_plumes_fg (myTime, myIter, myThid, dt)
c-----------------------------------------------------------------------
c  Subroutine step_plumes_fg - 'Wrapper' routine to advance
c        the plumes state and make a 'first guess' at the new
c        value. At this point, increment with the plumes 
c        tendency only. 
c        Also: Set up "bi, bj loop" and some timers and clocks here.
c Call: step_plumes
c-----------------------------------------------------------------------
       implicit none
#include "CPP_OPTIONS.h"
#include "SIZE.h"
#include "plumes_SIZE.h"
#include "plumes_coms.h"
#include "EEPARAMS.h"

       integer myTime, myIter, myThid 

       integer bi, bj
       _RL dt

       do bj = myByLo(myThid), myByHi(myThid)
       do bi = myBxLo(myThid), myBxHi(myThid)

c  Step forward the plumes state using plumes tendencies
        call step_plumes(uplume,vplume,thplume,splume,dt,
     .   Nxplumes,Nyplumes,Nr,Nsx,Nsy,bi,bj,
     .                          duplume,dvplume,dthplume,dsplume)

       enddo
       enddo

       return
       end