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

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

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

revision 1.1.2.1 by adcroft, Tue Feb 26 16:04:48 2002 UTC revision 1.6 by jmc, Tue Jul 26 16:23:52 2016 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "DEBUG_OPTIONS.h"
5    
6        SUBROUTINE DEBUG_STATS_RL(        SUBROUTINE DEBUG_STATS_RL(
7       I                myNr, arr, arrName,       I                myNr, arr, arrName,
8       I                myThid )       I                myThid )
9  C     /==========================================================\  C     *==========================================================*
10  C     | SUBROUTINE DEBUG_STATS_RL                                |  C     | SUBROUTINE DEBUG_STATS_RL                                |
11  C     | o Prints to STDOUT the bare statistics of global array   |  C     | o Prints to STDOUT the bare statistics of global array   |
12  C     |   "_RL arr" with label "arrName"                         |  C     |   "_RL arr" with label "arrName"                         |
13  C     | o This is an exact copy of MON_PRINTSTATS_RL but with    |  C     | o This routine is similar to MON_WRITESTATS_RL but with  |
14  C     |   a different label at left of screen                    |  C     |   a different label at left of screen                    |
15  C     |==========================================================|  C     *==========================================================*
 C     \==========================================================/  
16        IMPLICIT NONE        IMPLICIT NONE
17    
18  C     === Global data ===  C     === Global data ===
# Line 33  C     === Local variables ==== Line 32  C     === Local variables ====
32        _RL theSD        _RL theSD
33    
34        CALL DEBUG_FLD_STATS_RL(        CALL DEBUG_FLD_STATS_RL(
35       I                myNr, arr,       I                myNr, arr, zeroRL,
36       O                theMin,theMax,theMean,theSD,       O                theMin, theMax, theMean, theSD,
37       I                myThid )       I                myThid )
38    
39        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
40        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
41       &      'DEBUG_STATS_RL: ',arrName,'  min=',theMin       &      'DEBUG_STATS_RL: ',arrName,'  min=',theMin
42        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
43       &      'DEBUG_STATS_RL: ',arrName,'  max=',theMax       &      'DEBUG_STATS_RL: ',arrName,'  max=',theMax
44        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
45       &      'DEBUG_STATS_RL: ',arrName,' mean=',theMean       &      'DEBUG_STATS_RL: ',arrName,' mean=',theMean
46        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
47       &      'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD       &      'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD
48        _END_MASTER( )        _END_MASTER( myThid )
49    
50        RETURN        RETURN
51        END        END
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22