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	C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_printstats_rs.F,v 1.8 2004/04/03 21:17:10 edhill Exp $
2	C $Name: $
3
4	#include "MONITOR_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP
8	C !ROUTINE: MON_PRINTSTATS_RL
9
10	C !INTERFACE:
11	SUBROUTINE MON_PRINTSTATS_RL(
12	I myNr, arr, arrName,
13	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	IMPLICIT NONE
21	#include "SIZE.h"
22	#include "EEPARAMS.h"
23	#include "MONITOR.h"
24
25	C !INPUT PARAMETERS:
26	INTEGER myNr
27	_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
28	CHARACTER() arrName
29	INTEGER myThid
30	CEOP
31
32	C !LOCAL VARIABLES:
33	_RL theMin
34	_RL theMax
35	_RL theMean
36	_RL theSD
37
38	CALL MON_STATS_RL(
39	I myNr, arr,
40	O theMin,theMax,theMean,theSD,
41	I myThid )
42
43	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
48	RETURN
49	END