/[MITgcm]/MITgcm/pkg/debug/debug_stats_rl.F
ViewVC logotype

Diff of /MITgcm/pkg/debug/debug_stats_rl.F

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

revision 1.4 by edhill, Tue Dec 14 16:54:08 2004 UTC revision 1.5 by heimbach, Wed Feb 9 21:15:03 2005 UTC
# Line 38  C     === Local variables ==== Line 38  C     === Local variables ====
38       I                myThid )       I                myThid )
39    
40        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
41        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
42       &      'DEBUG_STATS_RL: ',arrName,'  min=',theMin       &      'DEBUG_STATS_RL: ',arrName,'  min=',theMin
43        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
44       &      'DEBUG_STATS_RL: ',arrName,'  max=',theMax       &      'DEBUG_STATS_RL: ',arrName,'  max=',theMax
45        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
46       &      'DEBUG_STATS_RL: ',arrName,' mean=',theMean       &      'DEBUG_STATS_RL: ',arrName,' mean=',theMean
47        WRITE(*,'(A,A30,A,1PE22.14)')        WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
48       &      'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD       &      'DEBUG_STATS_RL: ',arrName,' S.D.=',theSD
49        _END_MASTER( myThid )        _END_MASTER( myThid )
50    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22