| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
119 |
TRACER_FILL |
phi(1) = -pi/2. |
|
./pkg/fizhi/fizhi_fillnegs.F |
121 |
TRACER_FILL |
phi(j) = phi(j-1) + dphi(j-1) |
|
./pkg/fizhi/fizhi_fillnegs.F |
123 |
TRACER_FILL |
phi(jm) = pi/2. |
|
./pkg/fizhi/fizhi_fillnegs.F |
129 |
TRACER_FILL |
dxu(i,j) = a*cos(phi(j))*dlam(i) |
|
./pkg/fizhi/fizhi_fillnegs.F |
90 |
TRACER_FILL |
_RL lam(im), phi(jm) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
40 |
ZONAL_FILT_NOFILL |
Real*8 phi(Nx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
53 |
ZONAL_FILT_NOFILL |
CALL R8FFTF1( Nx, phi, |
|
./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_nofill.F |
63 |
ZONAL_FILT_NOFILL |
phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
72 |
ZONAL_FILT_NOFILL |
CALL R8FFTB1( Nx, phi, |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
77 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
83 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filter.F |
100 |
ZONAL_FILTER |
field(i,j,k) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filter.F |
103 |
ZONAL_FILTER |
field(i,j,k) = phi(i) |
|
./pkg/zonal_filt/zonal_filter.F |
106 |
ZONAL_FILTER |
field(i,j,k) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filter.F |
51 |
ZONAL_FILTER |
Real*8 phi(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
64 |
ZONAL_FILTER |
phi(i) = field(i,j,k) |
|
./pkg/zonal_filt/zonal_filter.F |
69 |
ZONAL_FILTER |
CALL ZONAL_FILT_PRESMOOTH( phiMask,phi,avPhi,sNx,myThid ) |
|
./pkg/zonal_filt/zonal_filter.F |
73 |
ZONAL_FILTER |
CALL R8FFTF1( Nx, phi, |
|
./pkg/zonal_filt/zonal_filter.F |
79 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
83 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
92 |
ZONAL_FILTER |
CALL R8FFTB1( Nx, phi, |
|
./pkg/zonal_filt/zonal_filter.F |
96 |
ZONAL_FILTER |
CALL ZONAL_FILT_POSTSMOOTH(phiMask,phi,avPhi,sNx,myThid) |