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

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

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

revision 1.4 by adcroft, Mon Jun 25 20:35:23 2001 UTC revision 1.5 by jmc, Thu Nov 8 16:47:34 2001 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        SUBROUTINE MON_PRINTSTATS_RL(        SUBROUTINE MON_PRINTSTATS_RL(
7       I                myNr, arr, arrName,       I                myNr, arr, arrName,
8         I                arrMask,arrhFac,arrArea,arrDr,
9       I                myThid )       I                myThid )
10  C     /==========================================================\  C     /==========================================================\
11  C     | SUBROUTINE MON_PRINTSTATS_RL                             |  C     | SUBROUTINE MON_PRINTSTATS_RL                             |
# Line 22  C     === Global data === Line 23  C     === Global data ===
23  C     === Routine arguments ===  C     === Routine arguments ===
24        INTEGER myNr        INTEGER myNr
25        _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)        _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
26          _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
27          _RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
28          _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29          _RS arrDr(myNr)
30        CHARACTER*(*) arrName        CHARACTER*(*) arrName
31        INTEGER myThid        INTEGER myThid
32    
# Line 30  C     === Local variables ==== Line 35  C     === Local variables ====
35        _RL theMax        _RL theMax
36        _RL theMean        _RL theMean
37        _RL theSD        _RL theSD
38          _RL theDel2
39    
40        CALL MON_STATS_RL(        CALL MON_STATS_RL(
41       I                myNr, arr,       I                myNr, arr, arrMask,arrhFac,arrArea,arrDr,
42       O                theMin,theMax,theMean,theSD,       O                theMin,theMax,theMean,theSD,theDel2,
43       I                myThid )       I                myThid )
44    
45        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
46        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
47        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
48        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
49          CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)
50    
51        RETURN        RETURN
52        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22