/[MITgcm]/MITgcm_contrib/plumes/step_plumes_fg.F
ViewVC logotype

Contents of /MITgcm_contrib/plumes/step_plumes_fg.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Wed May 5 18:19:35 2004 UTC (19 years, 10 months ago) by molod
Branch: MAIN
CVS Tags: HEAD
Code for embedded plume model

1 subroutine step_plumes_fg (myTime, myIter, myThid, dt)
2 c-----------------------------------------------------------------------
3 c Subroutine step_plumes_fg - 'Wrapper' routine to advance
4 c the plumes state and make a 'first guess' at the new
5 c value. At this point, increment with the plumes
6 c tendency only.
7 c Also: Set up "bi, bj loop" and some timers and clocks here.
8 c Call: step_plumes
9 c-----------------------------------------------------------------------
10 implicit none
11 #include "CPP_OPTIONS.h"
12 #include "SIZE.h"
13 #include "plumes_SIZE.h"
14 #include "plumes_coms.h"
15 #include "EEPARAMS.h"
16
17 integer myTime, myIter, myThid
18
19 integer bi, bj
20 _RL dt
21
22 do bj = myByLo(myThid), myByHi(myThid)
23 do bi = myBxLo(myThid), myBxHi(myThid)
24
25 c Step forward the plumes state using plumes tendencies
26 call step_plumes(uplume,vplume,thplume,splume,dt,
27 . Nxplumes,Nyplumes,Nr,Nsx,Nsy,bi,bj,
28 . duplume,dvplume,dthplume,dsplume)
29
30 enddo
31 enddo
32
33 return
34 end

  ViewVC Help
Powered by ViewVC 1.1.22