/[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.3 by adcroft, Mon Jun 4 14:25:53 2001 UTC revision 1.4 by adcroft, Wed Jun 6 14:50:23 2001 UTC
# Line 55  C     === Local variables ==== Line 55  C     === Local variables ====
55        IF (tmpVal.NE.0.) theMean=theMean*tmpVal        IF (tmpVal.NE.0.) theMean=theMean*tmpVal
56    
57        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
58        WRITE(*,'(A,24x,A,1PE22.14)')        WRITE(*,'(A,29x,A,1PE22.14)')
59       &      'MON_KE: ','  max=',theMax       &      'MON_KE: ',' KE max=',theMax
60        WRITE(*,'(A,24x,A,1PE22.14)')        WRITE(*,'(A,29x,A,1PE22.14)')
61       &      'MON_KE: ',' mean=',theMean       &      'MON_KE: ','KE mean=',theMean
62        _END_MASTER( )        _END_MASTER( )
63    
64        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22