/[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.5 by jmc, Thu Nov 8 16:47:34 2001 UTC revision 1.7 by adcroft, Tue May 13 18:18:05 2003 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        SUBROUTINE MON_PRINTSTATS_RL(        SUBROUTINE MON_PRINTSTATS_RL(
7       I                myNr, arr, arrName,       I                myNr, arr, arrName,
# Line 36  C     === Local variables ==== Line 36  C     === Local variables ====
36        _RL theMean        _RL theMean
37        _RL theSD        _RL theSD
38        _RL theDel2        _RL theDel2
39          _RL theVol
40    
41        CALL MON_STATS_RL(        CALL MON_STATS_RL(
42       I                myNr, arr, arrMask,arrhFac,arrArea,arrDr,       I                myNr, arr, arrMask,arrhFac,arrArea,arrDr,
43       O                theMin,theMax,theMean,theSD,theDel2,       O                theMin,theMax,theMean,theSD,theDel2,theVol,
44       I                myThid )       I                myThid )
45    
46        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  ,myThid)
# Line 47  C     === Local variables ==== Line 48  C     === Local variables ====
48        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
49        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   ,myThid)
50        CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)        CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid)
51    c     CALL MON_OUT_RL( arrName, theVol,  mon_foot_vol  ,myThid)
52    
53        RETURN        RETURN
54        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22