/[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.4 by adcroft, Wed Jun 6 14:50:23 2001 UTC revision 1.5 by cnh, Mon Jun 18 17:39:59 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 ===
22        INTEGER myThid        INTEGER myThid
# Line 54  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        _BEGIN_MASTER( myThid )        CALL MON_OUT_RL( mon_string_none, theMax, mon_foot_max   )
59        WRITE(*,'(A,29x,A,1PE22.14)')        CALL MON_OUT_RL( mon_string_none, theMean, mon_foot_mean )
      &      'MON_KE: ',' KE max=',theMax  
       WRITE(*,'(A,29x,A,1PE22.14)')  
      &      'MON_KE: ','KE mean=',theMean  
       _END_MASTER( )  
60    
61        RETURN        RETURN
62        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22