/[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.3 by adcroft, Wed May 20 19:59:13 1998 UTC revision 1.4 by cnh, Mon May 25 16:17:36 1998 UTC
# Line 60  C     In spherical polar yc, delY and ly Line 60  C     In spherical polar yc, delY and ly
60           DO i=1,sNx           DO i=1,sNx
61            distY = yC(i,j,bi,bj)/lY            distY = yC(i,j,bi,bj)/lY
62            tauX  = -tauMax*cos(2. _d 0*PI*distY)            tauX  = -tauMax*cos(2. _d 0*PI*distY)
63  c         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)
65  C         fu(i,j,bi,bj) = -tauMax  C         fu(i,j,bi,bj) = -tauMax
66           ENDDO           ENDDO
67          ENDDO          ENDDO
68         ENDDO         ENDDO
69        ENDDO        ENDDO
70        fu(Nx/2,Ny/2,1,1) = fu(Nx/2,Ny/2,1,1)*0.917d0        fu(4,4,1,1) = fu(4,4,1,1)*0.917d0
71  C  C
72        _EXCH_XY_R4(fu  , myThid )        _EXCH_XY_R4(fu  , myThid )
73        _EXCH_XY_R4(fv  , myThid )        _EXCH_XY_R4(fv  , myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22