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

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

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

revision 1.3 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.4 by cnh, Tue Feb 6 04:22:36 2001 UTC
# Line 63  C     tracer cell face *above* this leve Line 63  C     tracer cell face *above* this leve
63            ENDDO            ENDDO
64          ENDDO          ENDDO
65        ELSEIF (k.eq.Nr) THEN        ELSEIF (k.eq.Nr) THEN
66          DO j=1-Oly,sNy+Oly-1  C       DO j=1-Oly,sNy+Oly-1
67            DO i=1-Olx,sNx+Olx-1  C         DO i=1-Olx,sNx+Olx-1
68            DO j=1-1,sNy+1
69              DO i=1-1,sNx+1
70              wFld(i,j,k,bi,bj) =              wFld(i,j,k,bi,bj) =
71       &         -(       &         -(
72       &            uTrans(i+1,j)-uTrans(i,j)       &            uTrans(i+1,j)-uTrans(i,j)
# Line 73  C     tracer cell face *above* this leve Line 75  C     tracer cell face *above* this leve
75            ENDDO            ENDDO
76          ENDDO          ENDDO
77        ELSE        ELSE
78         DO j=1-Oly,sNy+Oly-1  C      DO j=1-Oly,sNy+Oly-1
79           DO i=1-Olx,sNx+Olx-1  C        DO i=1-Olx,sNx+Olx-1
80           DO j=1-1,sNy+1
81             DO i=1-1,sNx+1
82             wFld(i,j,k,bi,bj) = wFld(i,j,k+1,bi,bj)             wFld(i,j,k,bi,bj) = wFld(i,j,k+1,bi,bj)
83       &         -(       &         -(
84       &            uTrans(i+1,j)-uTrans(i,j)       &            uTrans(i+1,j)-uTrans(i,j)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22