/[MITgcm]/MITgcm/pkg/monitor/mon_ke.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_ke.F

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

revision 1.11 by adcroft, Tue May 13 18:18:05 2003 UTC revision 1.12 by edhill, Sat Apr 3 04:57:11 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "MONITOR_OPTIONS.h"  #include "MONITOR_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MON_KE
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_KE(        SUBROUTINE MON_KE(
12       I                  myIter, myThid )       I     myIter, myThid )
13  C     /==========================================================\  
14  C     | SUBROUTINE MON_KE                                        |  C     !DESCRIPTION:
15  C     | o Calculates stats for Kinetic energy                    |  C     Calculates stats for Kinetic energy                    
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
16    
17  C     === Global data ===  C     !USES:
18          IMPLICIT NONE
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "DYNVARS.h"  #include "DYNVARS.h"
# Line 20  C     === Global data === Line 23  C     === Global data ===
23  #include "GRID.h"  #include "GRID.h"
24  #include "SURFACE.h"  #include "SURFACE.h"
25    
26  C     === Routine arguments ===  C     !INPUT PARAMETERS:
27        INTEGER myIter, myThid        INTEGER myIter, myThid
28    CEOP
29    
30  C     === Local variables ====  C     !LOCAL VARIABLES:
31        INTEGER bi,bj,I,J,K        INTEGER bi,bj,I,J,K
32        _RL numPnts,theVol,tmpVal,tmpVol        _RL numPnts,theVol,tmpVal,tmpVol
33        _RL theMax,theMean,theVolMean,potEnMean        _RL theMax,theMean,theVolMean,potEnMean
# Line 124  c     CALL MON_OUT_RL(mon_string_none,th Line 128  c     CALL MON_OUT_RL(mon_string_none,th
128    
129        RETURN        RETURN
130        END        END
131    
132    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22