common /countc/ convadj(imt,jmt,km),ics,depth(km),problem
convadj(i,j,k2) = convadj(i,j,k2) + (ttemp(k2)-