/[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.39 by dimitri, Fri Feb 4 17:30:13 2011 UTC revision 1.40 by jmc, Tue Jul 19 21:41:27 2011 UTC
# Line 327  C---+----1----+----2----+----3----+----4 Line 327  C---+----1----+----2----+----3----+----4
327              DO j = 1,sNy              DO j = 1,sNy
328               DO i = 1,sNx               DO i = 1,sNx
329                tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)                tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)
330       &               + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj)       &             + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign
331  C         above: more general (setInterFDr/setCenterDr) than line below  C         above: more general (setInterFDr/setCenterDr) than line below
332  c    &                      + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0  c    &                      + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0
333                tmp1k(i,j,bi,bj) =   tmp1k(i,j,bi,bj)                tmp1k(i,j,bi,bj) =   tmp1k(i,j,bi,bj)
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22