/[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.21 by adcroft, Mon Jun 22 15:26:25 1998 UTC revision 1.23 by adcroft, Wed Jul 1 19:49:36 1998 UTC
# Line 203  C--     Set up work arrays that need val Line 203  C--     Set up work arrays that need val
203            K13(i,j,1) = 0. _d 0            K13(i,j,1) = 0. _d 0
204            K23(i,j,1) = 0. _d 0            K23(i,j,1) = 0. _d 0
205            K33(i,j,1) = 0. _d 0            K33(i,j,1) = 0. _d 0
206            KapGM(i,j) = 0. _d 0            KapGM(i,j) = GMkbackground
207           ENDDO           ENDDO
208          ENDDO          ENDDO
209    
# 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.21  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22