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/streamice/streamice_adv_flux_fl_x.F |
120 |
STREAMICE_ADV_FLUX_FL_X |
phi = SLOPE_LIMITER (Cr) |
./pkg/streamice/streamice_adv_flux_fl_x.F |
125 |
STREAMICE_ADV_FLUX_FL_X |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
./pkg/streamice/streamice_adv_flux_fl_x.F |
131 |
STREAMICE_ADV_FLUX_FL_X |
& (stencil(0) + phi * .5 * (1.0-cfl) * |
./pkg/streamice/streamice_adv_flux_fl_x.F |
135 |
STREAMICE_ADV_FLUX_FL_X |
& (stencil(0) + phi * |
./pkg/streamice/streamice_adv_flux_fl_x.F |
172 |
STREAMICE_ADV_FLUX_FL_X |
phi = SLOPE_LIMITER (Cr) |
./pkg/streamice/streamice_adv_flux_fl_x.F |
178 |
STREAMICE_ADV_FLUX_FL_X |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
./pkg/streamice/streamice_adv_flux_fl_x.F |
184 |
STREAMICE_ADV_FLUX_FL_X |
& (stencil(0) + phi * .5 * (1.0-cfl) * |
./pkg/streamice/streamice_adv_flux_fl_x.F |
188 |
STREAMICE_ADV_FLUX_FL_X |
& (stencil(0) + phi * |
./pkg/streamice/streamice_adv_flux_fl_x.F |
43 |
STREAMICE_ADV_FLUX_FL_X |
_RL uface, phi, cfl, Cr, rdenom, d0, d1, psi |
./pkg/streamice/streamice_adv_flux_fl_y.F |
123 |
STREAMICE_ADV_FLUX_FL_Y |
phi = SLOPE_LIMITER (Cr) |
./pkg/streamice/streamice_adv_flux_fl_y.F |
128 |
STREAMICE_ADV_FLUX_FL_Y |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
./pkg/streamice/streamice_adv_flux_fl_y.F |
134 |
STREAMICE_ADV_FLUX_FL_Y |
& (stencil(0) + phi * .5 * (1.0-cfl) * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
138 |
STREAMICE_ADV_FLUX_FL_Y |
& (stencil(0) + phi * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
175 |
STREAMICE_ADV_FLUX_FL_Y |
phi = SLOPE_LIMITER (Cr) |
./pkg/streamice/streamice_adv_flux_fl_y.F |
180 |
STREAMICE_ADV_FLUX_FL_Y |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
./pkg/streamice/streamice_adv_flux_fl_y.F |
186 |
STREAMICE_ADV_FLUX_FL_Y |
& (stencil(0) + phi * .5 * (1.0-cfl) * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
190 |
STREAMICE_ADV_FLUX_FL_Y |
& (stencil(0) + phi * |
./pkg/streamice/streamice_adv_flux_fl_y.F |
43 |
STREAMICE_ADV_FLUX_FL_Y |
_RL vface, phi, cfl, Cr, rdenom, d0, d1, psi |
./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) |