Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by cnh, Thu May 28 03:34:52 1998 UTC | revision 1.7 by cnh, Thu May 28 15:09:29 1998 UTC | |
---|---|---|
# | Line 221 C are not used. | Line 221 C are not used. |
221 | DO j=jMin,jMax | DO j=jMin,jMax |
222 | DO i=iMin,iMax | DO i=iMin,iMax |
223 | gT(i,j,k,bi,bj)= | gT(i,j,k,bi,bj)= |
224 | & -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) |
225 | & *( | & *( |
226 | & +( fZon(i+1,j)-fZon(i,j) ) | & +( fZon(i+1,j)-fZon(i,j) ) |
227 | & +( fMer(i,j+1)-fMer(i,j) ) | & +( fMer(i,j+1)-fMer(i,j) ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |