pkg/monitor/mon_printstats_rs.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
                0005 C     !ROUTINE: MON_PRINTSTATS_RS
                0006
                0007 C     !INTERFACE:
dc684458c1 Alis*0008       SUBROUTINE MON_PRINTSTATS_RS(
2741539ec0 Ed H*0009      I     myNr, arr, arrName,
                0010      I     myThid )
dc684458c1 Alis*0011
2741539ec0 Ed H*0012 C     !DESCRIPTION:
                0013 C     Prints to STDOUT the bare statistics of global array "\_RS arr"
                0014 C     with label "arrName".
                0015
                0016 C     !USES:
                0017       IMPLICIT NONE
dc684458c1 Alis*0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
1389d71047 Chri*0020 #include "MONITOR.h"
dc684458c1 Alis*0021
2741539ec0 Ed H*0022 C     !INPUT PARAMETERS:
dc684458c1 Alis*0023       INTEGER myNr
                0024       _RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
                0025       CHARACTER*(*) arrName
                0026       INTEGER myThid
2741539ec0 Ed H*0027 CEOP
dc684458c1 Alis*0028
2741539ec0 Ed H*0029 C     !LOCAL VARIABLES:
dc684458c1 Alis*0030       _RL theMin
                0031       _RL theMax
                0032       _RL theMean
                0033       _RL theSD
                0034
8a869152eb Alis*0035       CALL MON_STATS_RS(
2741539ec0 Ed H*0036      I     myNr, arr,
                0037      O     theMin,theMax,theMean,theSD,
                0038      I     myThid )
dc684458c1 Alis*0039
fa1dae9534 Dimi*0040       CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
                0041       CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
                0042       CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
                0043       CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
dc684458c1 Alis*0044
                0045       RETURN
                0046       END