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

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

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

revision 1.25 by jmc, Sun Sep 27 23:18:53 2009 UTC revision 1.26 by jmc, Mon Nov 30 16:26:48 2009 UTC
# Line 126  c#endif Line 126  c#endif
126        IF (use3Dsolver) THEN        IF (use3Dsolver) THEN
127         DO j=1,sNy         DO j=1,sNy
128          DO i=1,sNx          DO i=1,sNx
129           cg3d_b(i,j,k,bi,bj) = pf(i+1,j)-pf(i,j)           cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) )
130          ENDDO          ENDDO
131         ENDDO         ENDDO
132        ENDIF        ENDIF
# Line 169  C     Explicit+Implicit part of the Baro Line 169  C     Explicit+Implicit part of the Baro
169        IF (use3Dsolver) THEN        IF (use3Dsolver) THEN
170         DO j=1,sNy         DO j=1,sNy
171          DO i=1,sNx          DO i=1,sNx
172           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) +           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
173       &    pf(i,j+1)-pf(i,j)       &                       + ( pf(i,j+1)-pf(i,j) )
174          ENDDO          ENDDO
175         ENDDO         ENDDO
176        ENDIF        ENDIF
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22