/[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.9 by jmc, Wed Nov 10 20:43:43 2004 UTC revision 1.10 by jmc, Sat Jan 16 22:27:19 2010 UTC
# Line 9  C     !ROUTINE: MON_PRINTSTATS_RL Line 9  C     !ROUTINE: MON_PRINTSTATS_RL
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MON_PRINTSTATS_RL(        SUBROUTINE MON_PRINTSTATS_RL(
12       I     myNr, arr, arrName,       I     myNr, arr, arrName,
      I     arrMask,arrhFac,arrArea,arrDr,  
13       I     myThid )       I     myThid )
14    
15  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 26  C     !USES: Line 25  C     !USES:
25  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
26        INTEGER myNr        INTEGER myNr
27        _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)
       _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)  
       _RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)  
       _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS arrDr(myNr)  
28        CHARACTER*(*) arrName        CHARACTER*(*) arrName
29        INTEGER myThid        INTEGER myThid
30  CEOP  CEOP
31    
32  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
33        _RL theMin, theMax, theMean, theSD, theDel2, theVol        _RL theMin
34          _RL theMax
35          _RL theMean
36          _RL theSD
37    
38        CALL MON_STATS_RL(        CALL MON_STATS_RL(
39       I     myNr, arr, arrMask, arrhFac, arrArea, arrDr,       I     myNr, arr,
40       O     theMin, theMax, theMean, theSD, theDel2, theVol,       O     theMin,theMax,theMean,theSD,
41       I     myThid )       I     myThid )
42    
43        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
44        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
45        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
46        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
       CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)  
 c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol  ,myThid)  
47    
48        RETURN        RETURN
49        END        END
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22