pkg/monitor/mon_printstats_rl.F

91672e10e3 Alis*0001 #include "MONITOR_OPTIONS.h"
dc684458c1 Alis*0002
2741539ec0 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
1de97a8f3b Jean*0005 C     !ROUTINE: MON_PRINTSTATS_RL
2741539ec0 Ed H*0006
                0007 C     !INTERFACE:
dc684458c1 Alis*0008       SUBROUTINE MON_PRINTSTATS_RL(
670e0960f0 Jean*0009      I     myNr, arr, arrName,
945767c8b8 Jean*0010      I     arrMask,arrhFac,arrArea,arrDr,
2741539ec0 Ed H*0011      I     myThid )
dc684458c1 Alis*0012
2741539ec0 Ed H*0013 C     !DESCRIPTION:
                0014 C     Prints to STDOUT the bare statistics of global array "\_RL arr"
                0015 C     with label "arrName".
                0016
                0017 C     !USES:
                0018       IMPLICIT NONE
dc684458c1 Alis*0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
1389d71047 Chri*0021 #include "MONITOR.h"
dc684458c1 Alis*0022
2741539ec0 Ed H*0023 C     !INPUT PARAMETERS:
dc684458c1 Alis*0024       INTEGER myNr
                0025       _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
945767c8b8 Jean*0026       _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
                0027       _RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
                0028       _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0029       _RS arrDr(myNr)
dc684458c1 Alis*0030       CHARACTER*(*) arrName
                0031       INTEGER myThid
2741539ec0 Ed H*0032 CEOP
dc684458c1 Alis*0033
2741539ec0 Ed H*0034 C     !LOCAL VARIABLES:
945767c8b8 Jean*0035       _RL theMin, theMax, theMean, theSD, theDel2, theVol
                0036
                0037 C     Since 2009/12/21 MON_WRITESTATS_RL replaces MON_PRINTSTATS_RL
                0038 C     which is now disabled
                0039       STOP 'ABNORMAL END: S/R MON_PRINTSTATS_RL no longer maintained'
dc684458c1 Alis*0040
                0041       CALL MON_STATS_RL(
945767c8b8 Jean*0042      I     myNr, arr, arrMask, arrhFac, arrArea, arrDr,
                0043      O     theMin, theMax, theMean, theSD, theDel2, theVol,
2741539ec0 Ed H*0044      I     myThid )
dc684458c1 Alis*0045
67067d3ff1 Alis*0046       CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
                0047       CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
                0048       CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
                0049       CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
945767c8b8 Jean*0050       CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)
                0051 c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol  ,myThid)
dc684458c1 Alis*0052
                0053       RETURN
                0054       END