1 |
jmc |
1.6 |
C $Header: /u/gcmpack/MITgcm/pkg/debug/debug_stats_rl.F,v 1.5 2005/02/09 21:15:03 heimbach Exp $ |
2 |
jmc |
1.2 |
C $Name: $ |
3 |
adcroft |
1.1 |
|
4 |
edhill |
1.3 |
#include "DEBUG_OPTIONS.h" |
5 |
adcroft |
1.1 |
|
6 |
|
|
SUBROUTINE DEBUG_STATS_RL( |
7 |
|
|
I myNr, arr, arrName, |
8 |
|
|
I myThid ) |
9 |
jmc |
1.6 |
C *==========================================================* |
10 |
adcroft |
1.1 |
C | SUBROUTINE DEBUG_STATS_RL | |
11 |
|
|
C | o Prints to STDOUT the bare statistics of global array | |
12 |
|
|
C | "_RL arr" with label "arrName" | |
13 |
jmc |
1.6 |
C | o This routine is similar to MON_WRITESTATS_RL but with | |
14 |
adcroft |
1.1 |
C | a different label at left of screen | |
15 |
jmc |
1.6 |
C *==========================================================* |
16 |
adcroft |
1.1 |
IMPLICIT NONE |
17 |
|
|
|
18 |
|
|
C === Global data === |
19 |
|
|
#include "SIZE.h" |
20 |
|
|
#include "EEPARAMS.h" |
21 |
|
|
|
22 |
|
|
C === Routine arguments === |
23 |
|
|
INTEGER myNr |
24 |
|
|
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
25 |
|
|
CHARACTER*(*) arrName |
26 |
|
|
INTEGER myThid |
27 |
|
|
|
28 |
|
|
C === Local variables ==== |
29 |
|
|
_RL theMin |
30 |
|
|
_RL theMax |
31 |
|
|
_RL theMean |
32 |
|
|
_RL theSD |
33 |
|
|
|
34 |
jmc |
1.2 |
CALL DEBUG_FLD_STATS_RL( |
35 |
jmc |
1.6 |
I myNr, arr, zeroRL, |
36 |
|
|
O theMin, theMax, theMean, theSD, |
37 |
adcroft |
1.1 |
I myThid ) |
38 |
|
|
|
39 |
|
|
_BEGIN_MASTER( myThid ) |
40 |
heimbach |
1.5 |
WRITE(standardmessageunit,'(A,A30,A,1PE22.14)') |
41 |
adcroft |
1.1 |
& 'DEBUG_STATS_RL: ',arrName,' min=',theMin |
42 |
heimbach |
1.5 |
WRITE(standardmessageunit,'(A,A30,A,1PE22.14)') |
43 |
adcroft |
1.1 |
& 'DEBUG_STATS_RL: ',arrName,' max=',theMax |
44 |
heimbach |
1.5 |
WRITE(standardmessageunit,'(A,A30,A,1PE22.14)') |
45 |
adcroft |
1.1 |
& 'DEBUG_STATS_RL: ',arrName,' mean=',theMean |
46 |
heimbach |
1.5 |
WRITE(standardmessageunit,'(A,A30,A,1PE22.14)') |
47 |
adcroft |
1.1 |
& 'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD |
48 |
edhill |
1.4 |
_END_MASTER( myThid ) |
49 |
adcroft |
1.1 |
|
50 |
|
|
RETURN |
51 |
|
|
END |