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

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

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


Revision 1.6 - (hide annotations) (download)
Tue Jul 26 16:23:52 2016 UTC (7 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint65y, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, HEAD
Changes since 1.5: +6 -7 lines
- change GLOBAL_SUM to GLOBAL_SUM_TILE (result independent of tile to
  proc/thread mapping);
- fix Min & Max for case where 1 thread has only empty tiles;
- use RL variable to count number of wet grid points (with big domain,
  can be too large to fit into integer*4).

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

  ViewVC Help
Powered by ViewVC 1.1.22