Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by cnh, Mon May 25 16:17:36 1998 UTC | revision 1.5 by cnh, Mon Jun 8 21:43:01 1998 UTC | |
---|---|---|
# | Line 58 C In spherical polar yc, delY and ly | Line 58 C In spherical polar yc, delY and ly |
58 | DO bi = myBxLo(myThid), myBxHi(myThid) | DO bi = myBxLo(myThid), myBxHi(myThid) |
59 | DO j=1,sNy | DO j=1,sNy |
60 | DO i=1,sNx | DO i=1,sNx |
61 | distY = yC(i,j,bi,bj)/lY | distY = (yC(i,j,bi,bj)-yC0)/lY |
62 | tauX = -tauMax*cos(2. _d 0*PI*distY) | tauX = -tauMax*cos(2. _d 0*PI*distY) |
63 | tauX = tauMax*sin(PI*distY) | tauX = tauMax*sin(PI*distY) |
64 | fu(i,j,bi,bj) = tauX/(delZ(1)*rhonil) | fu(i,j,bi,bj) = tauX/(delZ(1)*rhonil) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |