| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_chemistry_exports.F |
184 |
INTERP_QZ |
integer jlat,jlatm,jlatp |
|
./pkg/fizhi/update_chemistry_exports.F |
193 |
INTERP_QZ |
DO 36 jlat = 1, nwatlats |
|
./pkg/fizhi/update_chemistry_exports.F |
194 |
INTERP_QZ |
IF( watlats(jlat).gt.xlat(i) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
195 |
INTERP_QZ |
IF( jlat.EQ.1 ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
200 |
INTERP_QZ |
jlatm = jlat -1 |
|
./pkg/fizhi/update_chemistry_exports.F |
201 |
INTERP_QZ |
jlatp = jlat |
|
./pkg/fizhi/update_chemistry_exports.F |
202 |
INTERP_QZ |
slope(i) = ( xlat(i) -watlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
203 |
INTERP_QZ |
. / ( watlats(jlat)-watlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
312 |
INTERP_OZ |
integer jlat,jlatm,jlatp |
|
./pkg/fizhi/update_chemistry_exports.F |
324 |
INTERP_OZ |
DO 36 jlat = 1,nozlats |
|
./pkg/fizhi/update_chemistry_exports.F |
325 |
INTERP_OZ |
IF( ozlats(jlat).gt.xlat(i) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
326 |
INTERP_OZ |
IF( jlat.EQ.1 ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
331 |
INTERP_OZ |
jlatm = jlat-1 |
|
./pkg/fizhi/update_chemistry_exports.F |
332 |
INTERP_OZ |
jlatp = jlat |
|
./pkg/fizhi/update_chemistry_exports.F |
333 |
INTERP_OZ |
slope(i) = ( XLAT(I) -ozlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
334 |
INTERP_OZ |
. / ( ozlats(jlat)-ozlats(jlat-1) ) |