/[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.6 - (show annotations) (download)
Tue Jul 26 16:23:52 2016 UTC (7 years, 11 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 C $Header: /u/gcmpack/MITgcm/pkg/debug/debug_stats_rl.F,v 1.5 2005/02/09 21:15:03 heimbach 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 routine is similar to MON_WRITESTATS_RL but with |
14 C | a different label at left of screen |
15 C *==========================================================*
16 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 CALL DEBUG_FLD_STATS_RL(
35 I myNr, arr, zeroRL,
36 O theMin, theMax, theMean, theSD,
37 I myThid )
38
39 _BEGIN_MASTER( myThid )
40 WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
41 & 'DEBUG_STATS_RL: ',arrName,' min=',theMin
42 WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
43 & 'DEBUG_STATS_RL: ',arrName,' max=',theMax
44 WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
45 & 'DEBUG_STATS_RL: ',arrName,' mean=',theMean
46 WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
47 & 'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD
48 _END_MASTER( myThid )
49
50 RETURN
51 END

  ViewVC Help
Powered by ViewVC 1.1.22