/[MITgcm]/MITgcm/pkg/monitor/mon_printstats_rl.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_printstats_rl.F

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

revision 1.2 by adcroft, Wed Jun 6 14:49:51 2001 UTC revision 1.11 by jmc, Tue Jan 26 01:09:02 2010 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "MONITOR_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MON_PRINTSTATS_RL
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_PRINTSTATS_RL(        SUBROUTINE MON_PRINTSTATS_RL(
12       I                myNr, arr, arrName,       I     myNr, arr, arrName,
13       I                myThid )       I     arrMask,arrhFac,arrArea,arrDr,
14  C     /==========================================================\       I     myThid )
15  C     | SUBROUTINE MON_PRINTSTATS_RL                             |  
16  C     | o Prints to STDOUT the bare statistics of global array   |  C     !DESCRIPTION:
17  C     |   "_RL arr" with label "arrName"                         |  C     Prints to STDOUT the bare statistics of global array "\_RL arr"
18  C     |==========================================================|  C     with label "arrName".
 C     \==========================================================/  
       IMPLICIT NONE  
19    
20  C     === Global data ===  C     !USES:
21          IMPLICIT NONE
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24    #include "MONITOR.h"
25    
26  C     === Routine arguments ===  C     !INPUT PARAMETERS:
27        INTEGER myNr        INTEGER myNr
28        _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)        _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
29          _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
30          _RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
31          _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32          _RS arrDr(myNr)
33        CHARACTER*(*) arrName        CHARACTER*(*) arrName
34        INTEGER myThid        INTEGER myThid
35    CEOP
36    
37    C     !LOCAL VARIABLES:
38          _RL theMin, theMax, theMean, theSD, theDel2, theVol
39    
40  C     === Local variables ====  C     Since 2009/12/21 MON_WRITESTATS_RL replaces MON_PRINTSTATS_RL
41        _RL theMin  C     which is now disabled
42        _RL theMax        STOP 'ABNORMAL END: S/R MON_PRINTSTATS_RL no longer maintained'
       _RL theMean  
       _RL theSD  
43    
44        CALL MON_STATS_RL(        CALL MON_STATS_RL(
45       I                myNr, arr,       I     myNr, arr, arrMask, arrhFac, arrArea, arrDr,
46       O                theMin,theMax,theMean,theSD,       O     theMin, theMax, theMean, theSD, theDel2, theVol,
47       I                myThid )       I     myThid )
48    
49        _BEGIN_MASTER( myThid )        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
50        WRITE(*,'(A,A20,A,1PE22.14)')        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)
51       &      'MON_PRINTSTATS_RL: ',arrName,'  min=',theMin        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
52        WRITE(*,'(A,A20,A,1PE22.14)')        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
53       &      'MON_PRINTSTATS_RL: ',arrName,'  max=',theMax        CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)
54        WRITE(*,'(A,A20,A,1PE22.14)')  c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol  ,myThid)
      &      'MON_PRINTSTATS_RL: ',arrName,' mean=',theMean  
       WRITE(*,'(A,A20,A,1PE22.14)')  
      &      'MON_PRINTSTATS_RL: ',arrName,' S.D.=',theSD  
       _END_MASTER( )  
55    
56        RETURN        RETURN
57        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22