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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.23 by jmc, Tue Dec 13 23:16:52 2005 UTC revision 1.24 by jmc, Thu Dec 15 02:06:06 2005 UTC
# Line 104  C        slipSideFac = 0. _d 0 Line 104  C        slipSideFac = 0. _d 0
104          DO K=1,Nr          DO K=1,Nr
105           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
106            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
            gwNm1(i,j,k,bi,bj) = gW(i,j,k,bi,bj)  
107             gW(i,j,k,bi,bj) = 0.             gW(i,j,k,bi,bj) = 0.
108            ENDDO            ENDDO
109           ENDDO           ENDDO
# Line 317  caja           and an hFacUS (above V po Line 316  caja           and an hFacUS (above V po
316       &     +deltatMom*nh_Am2*( ab15*gW(i,j,k,bi,bj)       &     +deltatMom*nh_Am2*( ab15*gW(i,j,k,bi,bj)
317       &                 +ab05*gwNm1(i,j,k,bi,bj) )       &                 +ab05*gwNm1(i,j,k,bi,bj) )
318             IF (hFacC(I,J,K,bi,bj).EQ.0.) wVel(i,j,k,bi,bj)=0.             IF (hFacC(I,J,K,bi,bj).EQ.0.) wVel(i,j,k,bi,bj)=0.
319               gwNm1(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
320            ENDDO            ENDDO
321           ENDDO           ENDDO
322          ENDDO          ENDDO
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22