Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by adcroft, Mon Jun 1 20:36:13 1998 UTC | revision 1.2 by adcroft, Mon Jun 1 22:27:14 1998 UTC | |
---|---|---|
# | Line 58 C Step forward meridional velocity | Line 58 C Step forward meridional velocity |
58 | ENDDO | ENDDO |
59 | ENDDO | ENDDO |
60 | ||
C Step forward temperature velocity | ||
DO j=jMin,jMax | ||
DO i=iMin,iMax | ||
theta(i,j,k,bi,bj)=gTNm1(i,j,k,bi,bj) | ||
gTNm1(i,j,k,bi,bj)=gT(i,j,k,bi,bj) | ||
ENDDO | ||
ENDDO | ||
61 | RETURN | RETURN |
62 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |