/[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.3 by heimbach, Mon Jan 29 20:07:39 2001 UTC revision 1.4 by adcroft, Fri Feb 2 21:36:29 2001 UTC
# Line 144  C--     Time-average Line 144  C--     Time-average
144       &  Visbeck_K_T(i,j,bi,bj)=Visbeck_K_T(i,j,bi,bj)       &  Visbeck_K_T(i,j,bi,bj)=Visbeck_K_T(i,j,bi,bj)
145       &                       +VisbeckK(i,j,bi,bj)*deltaTclock       &                       +VisbeckK(i,j,bi,bj)*deltaTclock
146  #endif  #endif
147    #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */
148         ENDDO         ENDDO
149        ENDDO        ENDDO
       GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock  
 #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  
150    
151    #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
152          GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock
153    #endif
154    
155    
156  #ifdef GM_NON_UNITY_DIAGONAL  #ifdef GM_NON_UNITY_DIAGONAL
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22