Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by adcroft, Fri Sep 28 03:25:15 2001 UTC | revision 1.5 by adcroft, Mon Nov 26 16:13:27 2001 UTC | |
---|---|---|
# | Line 50 C Energy conserving discretization | Line 50 C Energy conserving discretization |
50 | DO j=1-Oly+1,sNy+Oly | DO j=1-Oly+1,sNy+Oly |
51 | DO i=1-Olx,sNx+Olx-1 | DO i=1-Olx,sNx+Olx-1 |
52 | vCoriolisTerm(i,j) = | vCoriolisTerm(i,j) = |
53 | & 0.5*( _fCori(i, j ,bi,bj) | & -0.5*( _fCori(i, j ,bi,bj) |
54 | & *0.5*( uFld( i , j )+uFld(i+1, j ) ) | & *0.5*( uFld( i , j )+uFld(i+1, j ) ) |
55 | & + _fCori(i,j-1,bi,bj) | & + _fCori(i,j-1,bi,bj) |
56 | & *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) ) | & *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |