| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/fftpack.F |
1315 |
R8FFTB1 |
L2 = IP*L1 |
|
./pkg/zonal_filt/fftpack.F |
1316 |
R8FFTB1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
1357 |
R8FFTB1 |
115 L1 = L2 |
|
./pkg/zonal_filt/fftpack.F |
1729 |
R8FFTF1 |
L2 = N |
|
./pkg/zonal_filt/fftpack.F |
1734 |
R8FFTF1 |
L1 = L2/IP |
|
./pkg/zonal_filt/fftpack.F |
1735 |
R8FFTF1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
1776 |
R8FFTF1 |
110 L2 = L1 |
|
./pkg/zonal_filt/fftpack.F |
1829 |
R8FFTI1 |
L2 = L1*IP |
|
./pkg/zonal_filt/fftpack.F |
1830 |
R8FFTI1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
1846 |
R8FFTI1 |
L1 = L2 |
|
./pkg/zonal_filt/fftpack.F |
390 |
RFFTB1 |
L2 = IP*L1 |
|
./pkg/zonal_filt/fftpack.F |
391 |
RFFTB1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
432 |
RFFTB1 |
115 L1 = L2 |
|
./pkg/zonal_filt/fftpack.F |
818 |
RFFTF1 |
L2 = N |
|
./pkg/zonal_filt/fftpack.F |
823 |
RFFTF1 |
L1 = L2/IP |
|
./pkg/zonal_filt/fftpack.F |
824 |
RFFTF1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
865 |
RFFTF1 |
110 L2 = L1 |
|
./pkg/zonal_filt/fftpack.F |
923 |
RFFTI1 |
L2 = L1*IP |
|
./pkg/zonal_filt/fftpack.F |
924 |
RFFTI1 |
IDO = N/L2 |
|
./pkg/zonal_filt/fftpack.F |
940 |
RFFTI1 |
L1 = L2 |
|
./pkg/fizhi/update_chemistry_exports.F |
177 |
INTERP_QZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
226 |
INTERP_QZ |
DO 40 L2 = 1,nlevs |
|
./pkg/fizhi/update_chemistry_exports.F |
230 |
INTERP_QZ |
IF( watlevs(L1).GT.pres(i,L2) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
252 |
INTERP_QZ |
qz_clim(i,L2) = QPR2(i) + (pres(i,L2)-PR2(i))*SLOPE(i) |
|
./pkg/fizhi/update_chemistry_exports.F |
311 |
INTERP_OZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
357 |
INTERP_OZ |
DO 40 L2 = 1,NLEVS |
|
./pkg/fizhi/update_chemistry_exports.F |
361 |
INTERP_OZ |
IF( ozlevs(L1).GT.PLEVS(I,L2) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
384 |
INTERP_OZ |
ozrad(I,L2) = QPR2(I) + ( PLEVS(I,L2)-PR2(I) )*SLOPE(I) |
|
./pkg/fizhi/fizhi_init_chem.F |
203 |
GET_METHANE_N2O |
integer L,L1,L2,lup,ldn |
|
./pkg/fizhi/fizhi_init_chem.F |
239 |
GET_METHANE_N2O |
do L2 = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
242 |
GET_METHANE_N2O |
if( plevz(L1).gt.pres(L2) ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
263 |
GET_METHANE_N2O |
hght(L2) = hpr2 + ( pres(L2)-pr2 )*slope |
|
./pkg/mom_common/mom_calc_visc.F |
102 |
MOM_CALC_VISC |
_RL recip_dt,L2,L3,L4,L5,L2rdt,L4rdt |
|
./pkg/mom_common/mom_calc_visc.F |
313 |
MOM_CALC_VISC |
L2=rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
315 |
MOM_CALC_VISC |
L2=2. _d 0/((recip_DXF(I,J,bi,bj)**2+recip_DYF(I,J,bi,bj)**2)) |
|
./pkg/mom_common/mom_calc_visc.F |
317 |
MOM_CALC_VISC |
L3=(L2**1.5) |
|
./pkg/mom_common/mom_calc_visc.F |
318 |
MOM_CALC_VISC |
L4=(L2**2) |
|
./pkg/mom_common/mom_calc_visc.F |
319 |
MOM_CALC_VISC |
L5=(L2**2.5) |
|
./pkg/mom_common/mom_calc_visc.F |
321 |
MOM_CALC_VISC |
L2rdt=0.25 _d 0*recip_dt*L2 |
|
./pkg/mom_common/mom_calc_visc.F |
334 |
MOM_CALC_VISC |
Uscl=sqrt(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
391 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=L2 |
|
./pkg/mom_common/mom_calc_visc.F |
395 |
MOM_CALC_VISC |
viscA4_DSmg(i,j)=smag4fac*L2*viscAh_DSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
443 |
MOM_CALC_VISC |
L2=rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
445 |
MOM_CALC_VISC |
L2=2. _d 0/((recip_DXV(I,J,bi,bj)**2+recip_DYU(I,J,bi,bj)**2)) |
|
./pkg/mom_common/mom_calc_visc.F |
448 |
MOM_CALC_VISC |
L3=(L2**1.5) |
|
./pkg/mom_common/mom_calc_visc.F |
449 |
MOM_CALC_VISC |
L4=(L2**2) |
|
./pkg/mom_common/mom_calc_visc.F |
450 |
MOM_CALC_VISC |
L5=(L2**2.5) |
|
./pkg/mom_common/mom_calc_visc.F |
452 |
MOM_CALC_VISC |
L2rdt=0.25 _d 0*recip_dt*L2 |
|
./pkg/mom_common/mom_calc_visc.F |
466 |
MOM_CALC_VISC |
Uscl = sqrt(keZpt*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
522 |
MOM_CALC_VISC |
viscAh_ZSmg(i,j)=L2 |
|
./pkg/mom_common/mom_calc_visc.F |
526 |
MOM_CALC_VISC |
viscA4_ZSmg(i,j)=smag4fac*L2*viscAh_ZSmg(i,j) |