| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/zonal_filter.F |
70 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/ZONAL_FILT.h |
38 |
NO PROCEDURE |
COMMON /ZONAL_FFT/ ampFactor,ampFactorV |
|
./pkg/zonal_filt/ZONAL_FILT.h |
41 |
NO PROCEDURE |
_RL ampFactor( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, nSx, nSy ) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
59 |
ZONAL_FILT_NOFILL |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filt_init.F |
69 |
ZONAL_FILT_INIT |
ampFactor(1,J,bi,bj) = one |
|
./pkg/zonal_filt/zonal_filt_init.F |
72 |
ZONAL_FILT_INIT |
ampFactor(2*I,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
74 |
ZONAL_FILT_INIT |
ampFactor(2*I+1,J,bi,bj) = ampFactor(2*I,J,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
82 |
ZONAL_FILT_INIT |
ampFactor(Nx,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
85 |
ZONAL_FILT_INIT |
ampFactor(Nx,J,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_init.F |
95 |
ZONAL_FILT_INIT |
CALL WRITE_REC_XY_RL( 'ampFactor', ampFactor, 1, 0, myThid ) |