FORALL (j=1:nlat,i=1:nlon+1) t31(i,j) = 0
DO k = 1,nlev-1
FORALL (j=1:nlat,i=1:nlon+1) t31(i,j) = t31(i,j)+(p(i,j,k)
. +p(i-1,j,k)-p(i,j,k+1)-p(i-1,j,k+1))*(u(i-1,j,k)+u(i-1,j,k+1))
ENDDO
FORALL (j=1:nlat,i=1:nlon+1) t31(i,j) = -0.25*t31(i,j)
FORALL (j=1:nlat+1,i=1:nlon) t35(i,j) = 0
DO k = 1,nlev-1
FORALL (j=1:nlat+1,i=1:nlon) t35(i,j) = t35(i,j)+(p(i,j,k)
. +p(i,j-1,k)-p(i,j,k+1)-p(i,j-1,k+1))*(v(i,j-1,k)+v(i,j-1,k+1))
ENDDO
FORALL (j=1:nlat+1,i=1:nlon) t35(i,j) = -0.25*t35(i,j)
FORALL (j=1:nlat,i=1:nlon) pst(i,j) = -1.56961230576048E-7*(
. (1/dlam*(hyu(i,j)*t31(i+1,j)-hyu(i-1,j)*t31(i,j))+1/dtheta
. *(hxv(i,j)*t35(i,j+1)-hxv(i,j-1)*t35(i,j)))/(hxt(i,j)*hyt(i,j))
. )
|