pkg/fizhi/step_fizhi_fg.F

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/step_fizhi_fg.F,v 1.5 2004/07/16 19:37:04 molod Exp $
C $Name:  $

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

       integer myTime, myIter, myThid 

       integer bi, bj
       integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
       _RL dt

       im1 = 1-OLx
       im2 = sNx+OLx
       jm1 = 1-OLy
       jm2 = sNy+OLy
       idim1 = 1
       idim2 = sNx
       jdim1 = 1
       jdim2 = sNy

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

c  Step forward the physics state using physics tendencies
        call step_physics(uphy,vphy,thphy,sphy,dt,im1,im2,jm1,jm2,
     .      Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy)

       enddo
       enddo

       return
       end
1	molod	1.6	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/step_fizhi_fg.F,v 1.5 2004/07/16 19:37:04 molod Exp $
2	edhill	1.3	C $Name: $
3
4	molod	1.6	#include "FIZHI_OPTIONS.h"
5	molod	1.2	subroutine step_fizhi_fg (myTime, myIter, myThid, dt)
6	molod	1.1	c-----------------------------------------------------------------------
7			c Subroutine step_fizhi_fg - 'Wrapper' routine to advance
8			c the physics state and make a 'first guess' at the new
9			c value. At this point, increment with the physics
10			c tendency only.
11			c Also: Set up "bi, bj loop" and some timers and clocks here.
12			c Call: step_physics
13			c-----------------------------------------------------------------------
14			implicit none
15			#include "SIZE.h"
16			#include "fizhi_SIZE.h"
17	molod	1.4	#include "fizhi_land_SIZE.h"
18	molod	1.1	#include "fizhi_coms.h"
19			#include "EEPARAMS.h"
20
21			integer myTime, myIter, myThid
22
23	molod	1.5	integer bi, bj
24	molod	1.1	integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
25	molod	1.2	_RL dt
26	molod	1.1
27			im1 = 1-OLx
28			im2 = sNx+OLx
29			jm1 = 1-OLy
30			jm2 = sNy+OLy
31			idim1 = 1
32			idim2 = sNx
33			jdim1 = 1
34			jdim2 = sNy
35
36			do bj = myByLo(myThid), myByHi(myThid)
37			do bi = myBxLo(myThid), myBxHi(myThid)
38
39			c Step forward the physics state using physics tendencies
40	molod	1.2	call step_physics(uphy,vphy,thphy,sphy,dt,im1,im2,jm1,jm2,
41	molod	1.1	. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy)
42
43			enddo
44			enddo
45
46			return
47			end