| File |
Line number |
Procedure |
Code |
|
./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/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/update_chemistry_exports.F |
397 |
INTERP_OZ |
DO 60 L2=1,NLEVS |
|
./pkg/fizhi/update_chemistry_exports.F |
401 |
INTERP_OZ |
ozrad (I,L2) = ozrad(I,L2) * VOLTOMAS |
|
./pkg/mom_common/mom_calc_visc.F |
119 |
MOM_CALC_VISC |
_RL L2, L3, L5, L2rdt, L4rdt, recip_dt |
|
./pkg/mom_common/mom_calc_visc.F |
329 |
MOM_CALC_VISC |
L2 = L2_D(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
330 |
MOM_CALC_VISC |
L2rdt = 0.25 _d 0*recip_dt*L2 |
|
./pkg/mom_common/mom_calc_visc.F |
333 |
MOM_CALC_VISC |
L5 = (L2*L3) |
|
./pkg/mom_common/mom_calc_visc.F |
338 |
MOM_CALC_VISC |
Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
395 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=L2 |
|
./pkg/mom_common/mom_calc_visc.F |
399 |
MOM_CALC_VISC |
viscA4_DSmg(i,j)=smag4fac*L2*viscAh_DSmg(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
437 |
MOM_CALC_VISC |
L2 = L2_Z(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
438 |
MOM_CALC_VISC |
L2rdt = 0.25 _d 0*recip_dt*L2 |
|
./pkg/mom_common/mom_calc_visc.F |
441 |
MOM_CALC_VISC |
L5 = (L2*L3) |
|
./pkg/mom_common/mom_calc_visc.F |
449 |
MOM_CALC_VISC |
Uscl = SQRT(keZpt*L2)*viscAhRe_max |
|
./pkg/mom_common/mom_calc_visc.F |
506 |
MOM_CALC_VISC |
viscAh_ZSmg(i,j)=L2 |
|
./pkg/mom_common/mom_calc_visc.F |
510 |
MOM_CALC_VISC |
viscA4_ZSmg(i,j)=smag4fac*L2*viscAh_ZSmg(i,j) |
|
./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 |