11 |
C-- For a classical "gyre" type experiment just one term is needed. |
C-- For a classical "gyre" type experiment just one term is needed. |
12 |
C fu - Zonal velocity tendency term ( m/s^2 ) |
C fu - Zonal velocity tendency term ( m/s^2 ) |
13 |
C fv - Meridional 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 |
|
14 |
C Qnet - Surface heat flux (converted to degrees/second) |
C Qnet - Surface heat flux (converted to degrees/second) |
15 |
C EmPmR - Evaporation - Precipitation - Runoff (converted to psu/second) |
C EmPmR - Evaporation - Precipitation - Runoff (converted to psu/second) |
16 |
|
C SST - Sea surface temperature (degrees) for relaxation |
17 |
|
C SSS - Sea surface salinity (psu) for relaxation |
18 |
|
C Qsw - Short-wave surface heat flux (converted to degrees/second) |
19 |
COMMON /FFIELDS/ |
COMMON /FFIELDS/ |
20 |
& fu, fv, |
& fu, |
21 |
& SST, SSS, |
& fv, |
22 |
& Qnet, EmPmR |
& Qnet, |
23 |
|
& EmPmR, |
24 |
|
& SST, |
25 |
|
& SSS, |
26 |
|
& Qsw |
27 |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
28 |
_RS fv (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) |
|
29 |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
30 |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
31 |
COMMON /FFDOT/ |
_RS SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
32 |
& fudot, fvdot, |
_RS SSS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
33 |
& SSTdot, SSSdot, |
_RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
& 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) |
|