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

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

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

revision 1.1 by adcroft, Wed May 30 19:33:18 2001 UTC revision 1.2 by adcroft, Wed Jun 6 14:49:51 2001 UTC
# Line 25  C     === Routine arguments === Line 25  C     === Routine arguments ===
25        INTEGER myThid        INTEGER myThid
26    
27  C     === Local variables ====  C     === Local variables ====
       INTEGER bi,bj,I,J,K  
       INTEGER numPnts  
       LOGICAL noPnts  
28        _RL theMin        _RL theMin
29        _RL theMax        _RL theMax
30        _RL theMean        _RL theMean
# Line 40  C     === Local variables ==== Line 37  C     === Local variables ====
37    
38        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
39        WRITE(*,'(A,A20,A,1PE22.14)')        WRITE(*,'(A,A20,A,1PE22.14)')
40       &      'MON_PRINTSTATS: ',arrName,'  min=',theMin       &      'MON_PRINTSTATS_RL: ',arrName,'  min=',theMin
41        WRITE(*,'(A,A20,A,1PE22.14)')        WRITE(*,'(A,A20,A,1PE22.14)')
42       &      'MON_PRINTSTATS: ',arrName,'  max=',theMax       &      'MON_PRINTSTATS_RL: ',arrName,'  max=',theMax
43        WRITE(*,'(A,A20,A,1PE22.14)')        WRITE(*,'(A,A20,A,1PE22.14)')
44       &      'MON_PRINTSTATS: ',arrName,' mean=',theMean       &      'MON_PRINTSTATS_RL: ',arrName,' mean=',theMean
45        WRITE(*,'(A,A20,A,1PE22.14)')        WRITE(*,'(A,A20,A,1PE22.14)')
46       &      'MON_PRINTSTATS: ',arrName,' S.D.=',theSD       &      'MON_PRINTSTATS_RL: ',arrName,' S.D.=',theSD
47        _END_MASTER( )        _END_MASTER( )
48    
49        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22