model/inc/FFIELDS.h

C $Header: FFIELDS.h,v 1.1.1.1 1998/04/22 19:15:31 cnh Exp $
C
C     /==========================================================\
C     | FFIELDS.h                                                |
C     | o Model forcing fields                                   |
C     |==========================================================|
C     | The arrays here will need changing and customising for a |
C     | particular experiment.                                   |
C     \==========================================================/
C
C--   For a classical "gyre" type experiment just one term is needed.
C     fu     - Zonal velocity tendency term ( m/s^2 )
C     fv     - Meridional velocity tendency term ( m/s^2 )
      COMMON /FFIELDS/ fu, fv
      _RS  fu     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  fv     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
1	cnh	1.2	C $Header: FFIELDS.h,v 1.1.1.1 1998/04/22 19:15:31 cnh Exp $
2	cnh	1.1	C
3			C /==========================================================\
4			C \| FFIELDS.h \|
5			C \| o Model forcing fields \|
6			C \|==========================================================\|
7			C \| The arrays here will need changing and customising for a \|
8			C \| particular experiment. \|
9			C \==========================================================/
10			C
11			C-- For a classical "gyre" type experiment just one term is needed.
12			C fu - Zonal velocity tendency term ( m/s^2 )
13			C fv - Meridional velocity tendency term ( m/s^2 )
14			COMMON /FFIELDS/ fu, fv
15			_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
16			_RS fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)