/[MITgcm]/MITgcm/model/src/ini_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_forcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22