Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |