pkg/monitor/mon_printstats_rl.F

C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_printstats_rl.F,v 1.7 2003/05/13 18:18:05 adcroft Exp $
C $Name:  $

#include "MONITOR_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: MON_KE

C     !INTERFACE:
      SUBROUTINE MON_PRINTSTATS_RL(
     I     myNr, arr, arrName, 
     I     arrMask,arrhFac,arrArea,arrDr,
     I     myThid )

C     !DESCRIPTION:
C     Prints to STDOUT the bare statistics of global array "\_RL arr"
C     with label "arrName".

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "MONITOR.h"

C     !INPUT PARAMETERS:
      INTEGER myNr
      _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)
      CHARACTER*(*) arrName
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
      _RL theMin, theMax, theMean, theSD, theDel2, theVol

      CALL MON_STATS_RL(
     I     myNr, arr, arrMask, arrhFac, arrArea, arrDr,
     O     theMin, theMax, theMean, theSD, theDel2, theVol,
     I     myThid )

      CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
      CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
      CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,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)

      RETURN
      END
1	edhill	1.8	C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_printstats_rl.F,v 1.7 2003/05/13 18:18:05 adcroft Exp $
2	adcroft	1.2	C $Name: $
3	adcroft	1.1
4	adcroft	1.7	#include "MONITOR_OPTIONS.h"
5	adcroft	1.1
6	edhill	1.8	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7			CBOP
8			C !ROUTINE: MON_KE
9
10			C !INTERFACE:
11	adcroft	1.1	SUBROUTINE MON_PRINTSTATS_RL(
12	edhill	1.8	I myNr, arr, arrName,
13			I arrMask,arrhFac,arrArea,arrDr,
14			I myThid )
15
16			C !DESCRIPTION:
17			C Prints to STDOUT the bare statistics of global array "\_RL arr"
18			C with label "arrName".
19
20			C !USES:
21	adcroft	1.1	IMPLICIT NONE
22			#include "SIZE.h"
23			#include "EEPARAMS.h"
24	cnh	1.3	#include "MONITOR.h"
25	adcroft	1.1
26	edhill	1.8	C !INPUT PARAMETERS:
27	adcroft	1.1	INTEGER myNr
28			_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
29	jmc	1.5	_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	adcroft	1.1	CHARACTER() arrName
34			INTEGER myThid
35	edhill	1.8	CEOP
36	adcroft	1.1
37	edhill	1.8	C !LOCAL VARIABLES:
38			_RL theMin, theMax, theMean, theSD, theDel2, theVol
39	adcroft	1.1
40			CALL MON_STATS_RL(
41	edhill	1.8	I myNr, arr, arrMask, arrhFac, arrArea, arrDr,
42			O theMin, theMax, theMean, theSD, theDel2, theVol,
43			I myThid )
44	adcroft	1.1
45	adcroft	1.4	CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid)
46			CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid)
47			CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
48			CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid)
49	jmc	1.5	CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)
50	jmc	1.6	c CALL MON_OUT_RL( arrName, theVol, mon_foot_vol ,myThid)
51	adcroft	1.1
52			RETURN
53			END