/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_fill_state.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill_state.F

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

revision 1.33 by jmc, Sun Nov 19 22:03:13 2006 UTC revision 1.34 by jmc, Sun Dec 24 20:07:02 2006 UTC
# Line 315  C---+----1----+----2----+----3----+----4 Line 315  C---+----1----+----2----+----3----+----4
315              DO j = 1,sNy              DO j = 1,sNy
316               DO i = 1,sNx               DO i = 1,sNx
317                tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)                tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)
318       &                      + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0       &               + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj)
319    C         above: more general (setInterFDr/setCenterDr) than line below
320    c    &                      + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0
321                tmp1k(i,j,bi,bj) =   tmp1k(i,j,bi,bj)                tmp1k(i,j,bi,bj) =   tmp1k(i,j,bi,bj)
322       &                      + drF(k)*hFacC(i,j,k,bi,bj)       &                      + drF(k)*hFacC(i,j,k,bi,bj)
323               ENDDO               ENDDO
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22