/[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.38 by jmc, Tue May 27 00:08:48 2008 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)
# Line 634  C--   fill tracer state-var diagnostics: Line 634  C--   fill tracer state-var diagnostics:
634    
635        IF ( selectVars.EQ.4 ) THEN        IF ( selectVars.EQ.4 ) THEN
636  C Second fill sequence for state variable tendency diagnostics: add state variable  C Second fill sequence for state variable tendency diagnostics: add state variable
637  C NOTE: send a '-1' for the bibjflag and allow counter to be incremented  C NOTE: send a '-1' for the bibjflag and do not increment counter
638  C       this means that diag fill is called from inside the bi-bj loop  C     (next fill for these diagnostics WILL allow counter to be incremented)
639    
640          IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN          IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN
641           DO bj = myByLo(myThid), myByHi(myThid)           DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22