/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.22 by adcroft, Tue Jun 23 02:35:59 1998 UTC revision 1.23 by adcroft, Wed Jul 1 19:49:36 1998 UTC
# Line 380  C--      Diagnose barotropic divergence Line 380  C--      Diagnose barotropic divergence
380       I       xA,yA,       I       xA,yA,
381       I       myThid)       I       myThid)
382    
383    C--      Cumulative diagnostic calculations (ie. time-averaging)
384    #ifdef ALLOW_DIAGNOSTICS
385             IF (taveFreq.GT.0.) THEN
386              CALL DO_TIME_AVERAGES(
387         I                           myTime, myIter, bi, bj, K, kUp, kDown,
388         I                           K13, K23, wVel,
389         I                           myThid )
390             ENDIF
391    #endif
392    
393          ENDDO ! K          ENDDO ! K
394    
395  C--     Implicit diffusion  C--     Implicit diffusion
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22