1 |
cnh |
1.3 |
C $Header: /u/gcmpack/models/MITgcmUV/pkg/zonal_filt/ZONAL_FILT.h,v 1.2 2001/02/02 21:36:30 adcroft Exp $ |
2 |
|
|
C $Name: $ |
3 |
adcroft |
1.2 |
|
4 |
|
|
#ifdef ALLOW_ZONAL_FILT |
5 |
|
|
|
6 |
|
|
C Amplitide factor as function of mode number and latitude (U,T points) |
7 |
|
|
COMMON /ZONAL_FFT/ ampFactor,ampFactorV |
8 |
|
|
C _RL ampFactor( Nx, 1-Oly:sNy+Oly, nSx, nSy ) |
9 |
|
|
C _RL ampFactorV( Nx, 1-Oly:sNy+Oly, nSx, nSy ) |
10 |
|
|
_RL ampFactor( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, nSx, nSy ) |
11 |
|
|
_RL ampFactorV( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, nSx, nSy ) |
12 |
|
|
|
13 |
|
|
#endif /* ZONAL_FILT */ |