Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.23 by adcroft, Wed Jul 1 19:49:36 1998 UTC | revision 1.25 by adcroft, Thu Jul 16 15:23:43 1998 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | C $Header$ | C $Header$ |
| 2 | ||
| 3 | #include "CPP_EEOPTIONS.h" | #include "CPP_OPTIONS.h" |
| 4 | ||
| 5 | SUBROUTINE DYNAMICS(myTime, myIter, myThid) | SUBROUTINE DYNAMICS(myTime, myIter, myThid) |
| 6 | C /==========================================================\ | C /==========================================================\ |
| # | Line 385 C-- Cumulative diagnostic calculati | Line 385 C-- Cumulative diagnostic calculati |
| 385 | IF (taveFreq.GT.0.) THEN | IF (taveFreq.GT.0.) THEN |
| 386 | CALL DO_TIME_AVERAGES( | CALL DO_TIME_AVERAGES( |
| 387 | I myTime, myIter, bi, bj, K, kUp, kDown, | I myTime, myIter, bi, bj, K, kUp, kDown, |
| 388 | I K13, K23, wVel, | I K13, K23, wVel, KapGM, |
| 389 | I myThid ) | I myThid ) |
| 390 | ENDIF | ENDIF |
| 391 | #endif | #endif |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |