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

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

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

revision 1.7 by cnh, Mon Mar 15 01:37:23 2004 UTC revision 1.8 by edhill, Sat Apr 3 21:17:10 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "MONITOR_OPTIONS.h"  #include "MONITOR_OPTIONS.h"
6    
7    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
8    CBOP
9    C     !ROUTINE: MON_VORT3
10    
11    C     !INTERFACE:
12        SUBROUTINE MON_VORT3(        SUBROUTINE MON_VORT3(
13       I                     myIter, myThid )       I     myIter, myThid )
 C     *==========================================================*  
 C     | SUBROUTINE MON_VORT3  
 C     | o Calculates stats for Vorticity (z-component)  
 C     *==========================================================*  
       IMPLICIT NONE  
14    
15  C     === Global data ===  C     !DESCRIPTION:
16    C     Calculates stats for Vorticity (z-component).
17    
18    C     !USES:
19          IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
# Line 24  C     === Global data === Line 28  C     === Global data ===
28  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
29  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
30    
31  C     === Routine arguments ===  C     !INPUT PARAMETERS:
32        INTEGER myIter, myThid        INTEGER myIter, myThid
33    CEOP
34    
35  C     === Local variables ====  C     !LOCAL VARIABLES:
36        INTEGER bi,bj,i,j,k        INTEGER bi,bj,i,j,k
37        INTEGER iMax,jMax        INTEGER iMax,jMax
38        _RL numPnts, theVol, theArea, tmpVal, tmpAre, tmpVol        _RL numPnts, theVol, theArea, tmpVal, tmpAre, tmpVol
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22