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