| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
124 |
INTERP_CHEMISTRY |
_RL ozrad(im,jm,lm,nSx,nSy) |
|
./pkg/fizhi/update_chemistry_exports.F |
134 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,ozrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
279 |
INTERP_OZ |
. irun,bi,bj,xlat,nlevs,plevs,ozrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
300 |
INTERP_OZ |
_RL ozrad(irun,nlevs) |
|
./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 |
386 |
INTERP_OZ |
if( ozrad(i,l2).lt.o3min ) then |
|
./pkg/fizhi/update_chemistry_exports.F |
387 |
INTERP_OZ |
ozrad(i,l2) = o3min |
|
./pkg/fizhi/update_chemistry_exports.F |
401 |
INTERP_OZ |
ozrad (I,L2) = ozrad(I,L2) * VOLTOMAS |