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

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

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

revision 1.4 by jmc, Fri Mar 5 02:28:11 2004 UTC revision 1.5 by edhill, Sat Apr 3 04:57:12 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_STATS_LATBND_RL
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_STATS_LATBND_RL(        SUBROUTINE MON_STATS_LATBND_RL(
12       I                myNr, mskNr, kLoc, nSepBnd, ySepBnd,       I     myNr, mskNr, kLoc, nSepBnd, ySepBnd,
13       I                arr, arrMask, arrhFac, arrArea, arrY, arrDr,       I     arr, arrMask, arrhFac, arrArea, arrY, arrDr,
14       O                theMin,theMax,theMean,theVar,theVol,       O     theMin,theMax,theMean,theVar,theVol,
15       I                myThid )       I     myThid )
 C     *==========================================================*  
 C     | SUBROUTINE MON_STATS_LATBND_RL  
 C     | o Calculate bare statistics of global array "_RL arr"  
 C     |   on each Latitude band (given by ySepBnd)  
 C     *==========================================================*  
 C     *==========================================================*  
       IMPLICIT NONE  
16    
17  C     === Global data ===  C     !DESCRIPTION:
18    C     Calculate bare statistics of global array "\_RL arr" on each
19    C     Latitude band (given by \texttt{ySepBnd}).
20    
21    C     !USES:
22          IMPLICIT NONE
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25          INTEGER  NLATBND
26          EXTERNAL NLATBND
27    
28  C     === Routine arguments ===  C     !INPUT PARAMETERS:
29  C     nSepBnd :: Number of latitude bands  C     nSepBnd :: Number of latitude bands
30  C     ySepBnd :: Southern latitude egde (from 2 to nSepBnd, 1 is not used)  C     ySepBnd :: Southern latitude egde (from 2 to nSepBnd, 1 is not used)
31        INTEGER myNr, mskNr, kLoc        INTEGER myNr, mskNr, kLoc
# Line 38  C     ySepBnd :: Southern latitude egde Line 43  C     ySepBnd :: Southern latitude egde
43        _RL theVar(nSepBnd)        _RL theVar(nSepBnd)
44        _RL theVol(nSepBnd)        _RL theVol(nSepBnd)
45        INTEGER myThid        INTEGER myThid
46    CEOP
47    
48  C     === Functions ====  C     !LOCAL VARIABLES:
       INTEGER  NLATBND  
       EXTERNAL NLATBND  
   
 C     === Local variables ====  
49        INTEGER bi,bj,i,j,k,n        INTEGER bi,bj,i,j,k,n
50        INTEGER km, k1, k2        INTEGER km, k1, k2
51        INTEGER numPnts        INTEGER numPnts
# Line 120  C-    set k index range [k1,k2] Line 122  C-    set k index range [k1,k2]
122        RETURN        RETURN
123        END        END
124                
125    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
126  CBOP  CBOP
127  C     !ROUTINE: NLATBND  C     !ROUTINE: NLATBND
128    
# Line 128  C     !INTERFACE: Line 131  C     !INTERFACE:
131        IMPLICIT NONE        IMPLICIT NONE
132    
133  C     !DESCRIPTION:  C     !DESCRIPTION:
134  C     *==========================================================*  C     Find the latidude band of yLoc in nSep strip
135  C     | FUNCTION NLATBND  
 C     | o Find the latidude band of yLoc in nSep strip  
 C     *==========================================================*  
 C  
136  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
137  C     nBnd :: Number of latitude bands  C     nBnd :: Number of latitude bands
138  C     yBnd :: latitude of southern boundary (for each lat. band)  C     yBnd :: latitude of southern boundary (for each lat. band)
# Line 140  C     yLoc :: current latitude Line 140  C     yLoc :: current latitude
140        INTEGER nBnd        INTEGER nBnd
141        _RS yBnd(nBnd)        _RS yBnd(nBnd)
142        _RS yLoc        _RS yLoc
143    CEOP
144    
145  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
146        INTEGER n        INTEGER n
# Line 151  C     !LOCAL VARIABLES: Line 152  C     !LOCAL VARIABLES:
152    
153        RETURN        RETURN
154        END        END
155    
156    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22