/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_tensor.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_tensor.F

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

revision 1.34 by jmc, Mon Oct 27 22:13:12 2008 UTC revision 1.35 by jmc, Sat Jan 2 23:10:47 2010 UTC
# Line 930  C--   Time-average Line 930  C--   Time-average
930       &                          deltaTclock, bi, bj, myThid )       &                          deltaTclock, bi, bj, myThid )
931         ENDIF         ENDIF
932  #endif  #endif
933         DO k=1,Nr         GM_timeAve(bi,bj) = GM_timeAve(bi,bj)+deltaTclock
          GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock  
        ENDDO  
934    
935        ENDIF        ENDIF
936  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
# Line 948  C--   Time-average Line 946  C--   Time-average
946        RETURN        RETURN
947        END        END
948    
949    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
950    
951        SUBROUTINE GMREDI_CALC_TENSOR_DUMMY(        SUBROUTINE GMREDI_CALC_TENSOR_DUMMY(
952       I             iMin, iMax, jMin, jMax,       I             iMin, iMax, jMin, jMax,
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22