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

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

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

revision 1.5 by cnh, Mon Jun 18 17:39:59 2001 UTC revision 1.6 by adcroft, Tue Jun 19 14:37:29 2001 UTC
# Line 53  C     === Local variables ==== Line 53  C     === Local variables ====
53        _GLOBAL_SUM_R8(theMean,myThid)        _GLOBAL_SUM_R8(theMean,myThid)
54        tmpVal=float(numPnts)        tmpVal=float(numPnts)
55        _GLOBAL_SUM_R8(tmpVal,myThid)        _GLOBAL_SUM_R8(tmpVal,myThid)
56        IF (tmpVal.NE.0.) theMean=theMean*tmpVal        IF (tmpVal.NE.0.) theMean=theMean/tmpVal
57    
58        CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max   )        CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max   )
59        CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean )        CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22