/[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.1 by adcroft, Mon Jun 4 13:25:35 2001 UTC revision 1.7 by adcroft, Mon Jun 25 20:35:23 2001 UTC
# Line 16  C     === Global data === Line 16  C     === Global data ===
16  #include "SIZE.h"  #include "SIZE.h"
17  #include "EEPARAMS.h"  #include "EEPARAMS.h"
18  #include "DYNVARS.h"  #include "DYNVARS.h"
19    #include "MONITOR.h"
20    
21  C     === Routine arguments ===  C     === Routine arguments ===
       CHARACTER*(*) label  
22        INTEGER myThid        INTEGER myThid
23    
24  C     === Local variables ====  C     === Local variables ====
# 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        theMean=theMean/tmpVal        IF (tmpVal.NE.0.) theMean=theMean/tmpVal
57    
58        _BEGIN_MASTER( myThid )        CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max   ,myThid)
59        WRITE(*,'(A,24x,A,1PE22.14)')        CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean ,myThid)
      &      'MON_KE: ','  max=',theMax  
       WRITE(*,'(A,24x,A,1PE22.14)')  
      &      'MON_KE: ',' mean=',theMean  
       _END_MASTER( )  
60    
61        RETURN        RETURN
62        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22