1 |
cnh |
1.1 |
C $Id$ |
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 |
|
|
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) |