pkg/monitor/mon_printstats_rl.F

C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_printstats_rs.F,v 1.8 2004/04/03 21:17:10 edhill Exp $
C $Name:  $

#include "MONITOR_OPTIONS.h"

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

C     !INTERFACE:
      SUBROUTINE MON_PRINTSTATS_RL(
     I     myNr, arr, arrName,
     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)
      CHARACTER*(*) arrName
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
      _RL theMin
      _RL theMax
      _RL theMean
      _RL theSD

      CALL MON_STATS_RL(
     I     myNr, arr,
     O     theMin,theMax,theMean,theSD,
     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)

      RETURN
      END
1	jmc	1.10	C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_printstats_rs.F,v 1.8 2004/04/03 21:17:10 edhill 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	jmc	1.9	C !ROUTINE: MON_PRINTSTATS_RL
9	edhill	1.8
10			C !INTERFACE:
11	adcroft	1.1	SUBROUTINE MON_PRINTSTATS_RL(
12	jmc	1.10	I myNr, arr, arrName,
13	edhill	1.8	I myThid )
14
15			C !DESCRIPTION:
16			C Prints to STDOUT the bare statistics of global array "\_RL arr"
17			C with label "arrName".
18
19			C !USES:
20	adcroft	1.1	IMPLICIT NONE
21			#include "SIZE.h"
22			#include "EEPARAMS.h"
23	cnh	1.3	#include "MONITOR.h"
24	adcroft	1.1
25	edhill	1.8	C !INPUT PARAMETERS:
26	adcroft	1.1	INTEGER myNr
27			_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
28			CHARACTER() arrName
29			INTEGER myThid
30	edhill	1.8	CEOP
31	adcroft	1.1
32	edhill	1.8	C !LOCAL VARIABLES:
33	jmc	1.10	_RL theMin
34			_RL theMax
35			_RL theMean
36			_RL theSD
37	adcroft	1.1
38			CALL MON_STATS_RL(
39	jmc	1.10	I myNr, arr,
40			O theMin,theMax,theMean,theSD,
41	edhill	1.8	I myThid )
42	adcroft	1.1
43	adcroft	1.4	CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid)
44			CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid)
45			CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
46			CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid)
47	adcroft	1.1
48			RETURN
49			END