model/inc/FFIELDS.h

C $Header: /u/gcmpack/models/MITgcmUV/model/inc/FFIELDS.h,v 1.4 1998/06/17 21:07:01 adcroft 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 )
C     SST    - Sea surface temperature (degrees) for forcing
C     SSS    - Sea surface salinity (psu) for forcing
C     Qnet   - Surface heat flux (converted to degrees/second)
C     EmPmR  - Evaporation - Precipitation - Runoff (converted to psu/second)
      COMMON /FFIELDS/
     &                 fu, fv,
     &                 SST, SSS,
     &                 Qnet, EmPmR
      _RS  fu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  fv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  SST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  SSS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  Qnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  EmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      COMMON /FFDOT/
     &                 fudot, fvdot,
     &                 SSTdot, SSSdot,
     &                 Qnetdot, EmPmRdot
      _RS  fudot    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  fvdot    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  SSTdot   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  SSSdot   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  Qnetdot  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  EmPmRdot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
1	C $Header: /u/gcmpack/models/MITgcmUV/model/inc/FFIELDS.h,v 1.4 1998/06/17 21:07:01 adcroft Exp $
2	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	C SST - Sea surface temperature (degrees) for forcing
15	C SSS - Sea surface salinity (psu) for forcing
16	C Qnet - Surface heat flux (converted to degrees/second)
17	C EmPmR - Evaporation - Precipitation - Runoff (converted to psu/second)
18	COMMON /FFIELDS/
19	& fu, fv,
20	& SST, SSS,
21	& Qnet, EmPmR
22	_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23	_RS fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24	_RS SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
25	_RS SSS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26	_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27	_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28	COMMON /FFDOT/
29	& fudot, fvdot,
30	& SSTdot, SSSdot,
31	& Qnetdot, EmPmRdot
32	_RS fudot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33	_RS fvdot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34	_RS SSTdot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35	_RS SSSdot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36	_RS Qnetdot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37	_RS EmPmRdot (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)