| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/slprs.F |
67 |
SLPRS |
TM(I) = TM(I) * (PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
|
./pkg/fizhi/slprs.F |
69 |
SLPRS |
TM(I) = THZ(I,LM)*(PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
|
./pkg/fizhi/slprs.F |
73 |
SLPRS |
SLP(I) = PLE(I,LM+1) * EXP( SLP(I) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
177 |
INTERP_QZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
232 |
INTERP_QZ |
LM = 1 |
|
./pkg/fizhi/update_chemistry_exports.F |
235 |
INTERP_QZ |
LM = L1-1 |
|
./pkg/fizhi/update_chemistry_exports.F |
241 |
INTERP_QZ |
LM = nwatlevs-1 |
|
./pkg/fizhi/update_chemistry_exports.F |
244 |
INTERP_QZ |
PR1(i) = watlevs (LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
246 |
INTERP_QZ |
QPR1(i) = h2o_time_lat(i,LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
311 |
INTERP_OZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
363 |
INTERP_OZ |
LM = 1 |
|
./pkg/fizhi/update_chemistry_exports.F |
366 |
INTERP_OZ |
LM = L1-1 |
|
./pkg/fizhi/update_chemistry_exports.F |
372 |
INTERP_OZ |
LM = nozlevs-1 |
|
./pkg/fizhi/update_chemistry_exports.F |
375 |
INTERP_OZ |
PR1(I) = ozlevs (LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
377 |
INTERP_OZ |
QPR1(I) = O3INT1(I,LM) |