/[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.10 by jmc, Sat Jan 16 22:27:19 2010 UTC revision 1.11 by jmc, Tue Jan 26 01:09:02 2010 UTC
# Line 10  C     !ROUTINE: MON_PRINTSTATS_RL Line 10  C     !ROUTINE: MON_PRINTSTATS_RL
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MON_PRINTSTATS_RL(        SUBROUTINE MON_PRINTSTATS_RL(
12       I     myNr, arr, arrName,       I     myNr, arr, arrName,
13         I     arrMask,arrhFac,arrArea,arrDr,
14       I     myThid )       I     myThid )
15    
16  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 25  C     !USES: Line 26  C     !USES:
26  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
27        INTEGER myNr        INTEGER myNr
28        _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)
29          _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
30          _RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
31          _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32          _RS arrDr(myNr)
33        CHARACTER*(*) arrName        CHARACTER*(*) arrName
34        INTEGER myThid        INTEGER myThid
35  CEOP  CEOP
36    
37  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
38        _RL theMin        _RL theMin, theMax, theMean, theSD, theDel2, theVol
39        _RL theMax  
40        _RL theMean  C     Since 2009/12/21 MON_WRITESTATS_RL replaces MON_PRINTSTATS_RL
41        _RL theSD  C     which is now disabled
42          STOP 'ABNORMAL END: S/R MON_PRINTSTATS_RL no longer maintained'
43    
44        CALL MON_STATS_RL(        CALL MON_STATS_RL(
45       I     myNr, arr,       I     myNr, arr, arrMask, arrhFac, arrArea, arrDr,
46       O     theMin,theMax,theMean,theSD,       O     theMin, theMax, theMean, theSD, theDel2, theVol,
47       I     myThid )       I     myThid )
48    
49        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
50        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
51        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
52        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
53          CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)
54    c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol  ,myThid)
55    
56        RETURN        RETURN
57        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22