/[MITgcm]/MITgcm/pkg/debug/debug_stats_rl.F
ViewVC logotype

Contents of /MITgcm/pkg/debug/debug_stats_rl.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2.8.1 - (show annotations) (download)
Thu Oct 2 18:30:07 2003 UTC (20 years, 7 months ago) by adcroft
Branch: branch-genmake2
Changes since 1.2: +2 -2 lines
Mis-type CONFIG as CONF !!!

1 C $Header: /u/gcmpack/MITgcm/pkg/debug/debug_stats_rl.F,v 1.2 2001/11/08 16:25:58 jmc Exp $
2 C $Name: $
3
4 #include "DEBUG_OPTIONS.h"
5
6 SUBROUTINE DEBUG_STATS_RL(
7 I myNr, arr, arrName,
8 I myThid )
9 C /==========================================================\
10 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 C | o This is an exact copy of MON_PRINTSTATS_RL but with |
14 C | a different label at left of screen |
15 C |==========================================================|
16 C \==========================================================/
17 IMPLICIT NONE
18
19 C === Global data ===
20 #include "SIZE.h"
21 #include "EEPARAMS.h"
22
23 C === Routine arguments ===
24 INTEGER myNr
25 _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
26 CHARACTER*(*) arrName
27 INTEGER myThid
28
29 C === Local variables ====
30 _RL theMin
31 _RL theMax
32 _RL theMean
33 _RL theSD
34
35 CALL DEBUG_FLD_STATS_RL(
36 I myNr, arr,
37 O theMin,theMax,theMean,theSD,
38 I myThid )
39
40 _BEGIN_MASTER( myThid )
41 WRITE(*,'(A,A30,A,1PE22.14)')
42 & 'DEBUG_STATS_RL: ',arrName,' min=',theMin
43 WRITE(*,'(A,A30,A,1PE22.14)')
44 & 'DEBUG_STATS_RL: ',arrName,' max=',theMax
45 WRITE(*,'(A,A30,A,1PE22.14)')
46 & 'DEBUG_STATS_RL: ',arrName,' mean=',theMean
47 WRITE(*,'(A,A30,A,1PE22.14)')
48 & 'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD
49 _END_MASTER( )
50
51 RETURN
52 END

  ViewVC Help
Powered by ViewVC 1.1.22