Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by cnh, Thu May 28 03:34:52 1998 UTC | revision 1.5 by cnh, Thu May 28 15:09:29 1998 UTC | |
---|---|---|
# | Line 169 C are not used. | Line 169 C are not used. |
169 | DO j=jMin,jMax | DO j=jMin,jMax |
170 | DO i=iMin,iMax | DO i=iMin,iMax |
171 | gS(i,j,k,bi,bj)= | gS(i,j,k,bi,bj)= |
172 | & -rHFacC(i,j,k,bi,bj)*rdzF(k)*_rdxF(i,j,bi,bj)*_rdyF(i,j,bi,bj) | & -_rhFacC(i,j,k,bi,bj)*rdzF(k)*_rdxF(i,j,bi,bj)*_rdyF(i,j,bi,bj) |
173 | & *( | & *( |
174 | & +( fZon(i+1,j)-fZon(i,j) ) | & +( fZon(i+1,j)-fZon(i,j) ) |
175 | & +( fMer(i,j+1)-fMer(i,j) ) | & +( fMer(i,j+1)-fMer(i,j) ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |