integer jlat,jlatm,jlatp
jlatp = 1
jlatp = jlat
jlatp = nwatlats
QPR2(i) = stratq(jlatp,k)
jlatp = nozlats
QPR2(I) = ozone(jlatp,k)