/[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.1.4.3 - (show annotations) (download)
Tue Jun 24 23:07:32 2003 UTC (20 years, 11 months ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, ecco_c51_e34
Changes since 1.1.4.2: +0 -0 lines
Merging from c51

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 "CPP_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