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

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

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

revision 1.1 by jmc, Wed Nov 10 20:51:26 2004 UTC revision 1.2 by jmc, Mon Dec 21 00:03:40 2009 UTC
# Line 9  C     !ROUTINE: MON_WRITESTATS_RL Line 9  C     !ROUTINE: MON_WRITESTATS_RL
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MON_WRITESTATS_RL(        SUBROUTINE MON_WRITESTATS_RL(
12       I     myNr, arr, arrName,       I     myNr, arr, arrName,
13       I     arrMask,arrhFac,arrArea,arrDr,       I     arrhFac, arrMask, arrArea, arrDr,
14       O     arrStats,       O     arrStats,
15       I     myThid )       I     myThid )
16    
17  C     !DESCRIPTION:  C     !DESCRIPTION:
18  C     Compute the bare statistics of global array "\_RL arr"  C     Compute the statistics of global array "\_RL arr" (account for
19  C     and write them to STDOUT with label "arrName".  C     volume and mask) and write them to STDOUT with label "arrName".
20    
21  C     !USES:  C     !USES:
22        IMPLICIT NONE        IMPLICIT NONE
# Line 26  C     !USES: Line 26  C     !USES:
26    
27  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
28        INTEGER myNr        INTEGER myNr
29        _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)
       _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)        _RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
31          _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32        _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33        _RS arrDr(myNr)        _RS arrDr(myNr)
34        CHARACTER*(*) arrName        CHARACTER*(*) arrName
# Line 42  CEOP Line 42  CEOP
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
43        _RL theMin, theMax, theMean, theSD, theDel2, theVol        _RL theMin, theMax, theMean, theSD, theDel2, theVol
44    
45        CALL MON_STATS_RL(        CALL MON_CALC_STATS_RL(
46       I     myNr, arr, arrMask, arrhFac, arrArea, arrDr,       I         myNr, arr, arrhFac, arrMask, arrArea, arrDr,
47       O     theMin, theMax, theMean, theSD, theDel2, theVol,       O         theMin, theMax, theMean, theSD, theDel2, theVol,
48       I     myThid )       I         myThid )
49    
50        arrStats(1) = theMin        arrStats(1) = theMin
51        arrStats(2) = theMax        arrStats(2) = theMax
# Line 54  C     !LOCAL VARIABLES: Line 54  C     !LOCAL VARIABLES:
54        arrStats(5) = theDel2        arrStats(5) = theDel2
55        arrStats(6) = theVol        arrStats(6) = theVol
56    
57        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max,  myThid )
58        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  ,myThid)        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min,  myThid )
59        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean, myThid )
60        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd,   myThid )
61        CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)        CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2, myThid )
62  c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol  ,myThid)  c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol,  myThid )
63    
64        RETURN        RETURN
65        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22