/[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.6 by adcroft, Tue Jun 19 14:37:29 2001 UTC revision 1.7 by adcroft, Mon Jun 25 20:35:23 2001 UTC
# Line 55  C     === Local variables ==== Line 55  C     === Local variables ====
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   ,myThid)
59        CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean )        CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ,myThid)
60    
61        RETURN        RETURN
62        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22