Symbol Description Uses
pqu 5


File Line number Procedure Code
./pkg/fizhi/update_chemistry_exports.F 172 INTERP_QZ 
      integer     pqu,pql,dpq
./pkg/fizhi/update_chemistry_exports.F 173 INTERP_QZ 
      parameter ( pqu = 100.    )
./pkg/fizhi/update_chemistry_exports.F 175 INTERP_QZ 
      parameter ( dpq = pql-pqu )
./pkg/fizhi/update_chemistry_exports.F 264 INTERP_QZ 
           if( pres(i,k).ge.pqu  .and. pres(i,k).le. pql) then
./pkg/fizhi/update_chemistry_exports.F 266 INTERP_QZ 
     1                     qz_clim(i,k))*(pres(i,k)-pqu)/dpq