Symbol Description Uses
jlat 18


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) )